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ABSTRACT 


The  Joint  Army/Navy  Rotorcraft  Analysis  and  Design  (JANRAD)  computer 
program  was  developed  at  the  Naval  Postgraduate  School  to  perform  performance, 
stability  and  control,  and  rotor  dynamics  analysis  during  preliminary  helicopter  design 
efforts.  This  thesis  is  the  continuation  of  a  previous  work  in  which  a  Graphical  User 
Interface  (GUI)  was  developed  and  implemented  as  the  front  end  to  the  JANRAD 
program.  Due  to  the  complexity  of  the  GUI  design,  only  the  Performance  module  of 
JANRAD  was  completed  by  the  prior  student.  This  thesis  expands  the  capabilities  of  the 
Performance  module,  and  the  JANRAD  code,  by  adding  graphical  output  of  performance 
results,  improved  rotor  sizing  capabilities,  resources  for  user  defined  blade  elements  and 
non-linear  blade  twist,  airfoil  meshing  capabilities,  and  additional  reference  airfoil  data 
corrected  for  compressibility  effects.  It  also  contains  the  basic  architecture  for  the 
Stability  and  Control  module  GUI.  Additionally,  utilizing  actual  UH-60A  Black  Hawk 
airfoil  and  test  flight  data  as  inputs,  JANRAD  98  version  5.0  was  run  to  validate  its 
output  with  the  test  flight  results,  and  those  produced  in  a  prior  thesis  by  JANRAD 
version  3.1  (1995).  Excellent  agreement  was  demonstrated  in  all  flight  regimes. 
Utilizing  airfoil  data  corrected  for  compressibility  effects,  high  altitude  runs  resulted  in 
much  better  correlation  with  test  flight  results  than  those  experienced  in  1995  using 
uncorrected  airfoil  data.  A  JANRAD  Users  Guide  was  updated  and  is  included  as 
Appendix  A. 
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DISCLAIMER 


Readers  are  also  cautioned  that  the  computer  code  in  this  thesis  may  not  have  been 
exercised  for  all  cases  of  interest.  While  effort  has  been  made,  within  the  time  available, 
to  ensure  that  the  program  is  free  of  computational  and  logical  errors,  additional 
verification  should  be  applied.  The  use  of  this  application  is  at  the  risk  of  the  user. 
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1.  INTRODUCTION 


A.  BACKGROUND 

The  Joint  Army/Navy  Rotorcraft  Analysis  and  Design  (JANRAD)  computer  code 
was  originally  developed  by  students  at  the  Naval  Post  Graduate  School  (NPS)  in 
response  to  the  1993  American  Helicopter  Society  (AHS)  Design  Competition.  The 
desire  to  develop  an  easy  to  use,  accurate  design  tool  was  the  motivation  for  a  thesis 
completed  by  Nicholson  (1993).  This  code  has  assisted  the  last  5  NPS  Helo  Design 
Teams  garner  1®*  or  2"^  place  finishes  in  the  AHS  competitions,  and  the  new  version  of 
JANRAD  98  proved  its  usefulness  to  this  year’s  design  team.  The  results  from  this 
competition  will  not  be  known  until  sometime  in  the  fall. 

JANRAD  consists  of  three  separate  modules,  each  developed  by  different 
students.  Design  of  the  performance  module  and  stability  and  control  module  are  based 
on  classical  blade  element  theory.  More  detail  on  the  design  of  these  modules  is  given  in 
Wirth  (1993),  Nicholson  (1993),  and  Eccles  (1995).  Although  separate,  the  stability  and 
control  module  does  require  that  the  performance  module  be  run  first  as  it  uses  the 
resulting  rotor  trim  conditions  to  calculate  stability  derivatives.  The  blade  dynamics 
portion  of  JANRAD  will  not  be  discussed  in  this  thesis. 

The  main  performance  fimction  calculated  25  different  helicopter  performance 
parameters  given  35  input  parameters.  The  program  was  written  in  MATLAB®  PC 
version  3.5  using  a  combination  of  script  and  function  M-files.  Inputs  were  made  at  the 
command  line  or  loaded  as  a  filename. mdX  file  from  the  current  working  directory.  The 
output  was  displayed  in  the  main  workspace  and  an  option  to  save  the  output  was  also 
built  into  the  program. 
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The  stability  and  control  module  calculates  a  complete  set  of  linearized  stability 
derivatives  for  the  helicopter  by  perturbing  it  from  its  “equilibrium”  or  “trim”  condition 
w^hich  is  calculated  in  the  performance  module. 

Since  JANRAD  version  1.0  was  initially  developed,  many  features  have  been 
added.  A  section  for  Rotor  Dynamics,  was  developed  by  Hiatt  (1995).  Minor  updates 
have  included  time  varying  tip  loss  analysis,  the  ability  to  calculate  performance 
characteristics  over  a  range  of  selected  input  parameters  and  the  addition  of  airfoil 
choices.  Eccles  (1995)  validated  the  code  by  conducting  a  detailed  comparison  between 
JANRAD  version  3.1  and  Sikorsky  UH-60A  and  H-34  measured  flight  test  data. 
JANRAD  results  predicted  power  required  within  2%  for  altitudes  below  6000  feet  MSL. 

The  motivation  for  this  thesis  is  the  prior  work  done  by  Lapacik  (1998)  on  the 
development  of  JANRAD  version  4.0.  Better  known  as  JANRAD  98,  the  thrust  of 
version  4.0  was  development  of  a  Graphical  User  Interface  (GUI)  to  simplify  operation  of 
the  JANRAD  code.  A  major  complaint  by  past  users  was  the  excessive  amount  of  time  it 
took  to  work  within  the  command  window  of  MATLAB®,  and  the  lack  of  reliability  or 
robustness  of  the  program.  Through  development  of  a  “Windows®  “  type  interface  tied 
to  the  existing  code,  users  can  now  quickly  make  multiple  runs  varying  input  parameters 
to  accomplish  preliminary  design  efforts  including;  sizing  of  engines  and  transmissions, 
rotor  blade  design,  tail  rotor  design,  and  calculating  performance  characteristics  of 
chosen  designs. 

B.  JANRAD  98  VERSION  4.0 

The  development  of  JANRAD  98  version  4.0  was  accomplished  utilizing  tools 
only  recently  available  with  the  release  of  MATLAB®  version  5.0.  The  most  important  of 
these,  a  function  called  GUIDE®  (Graphical  User  Interface  Design  Environment)  allows 
the  developer  to  create  interactive  screens  which  resemble  those  of  Windows®,  using 
“drag  and  drop”  controls  or  objects  obtained  from  a  master  pallet.  Transparent  to  the 
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GUI  developer,  MATLAB®  5  automatically  writes  the  code  required  to  create  the 
screens.  These  screen  displays  significantly  improve  the  look,  speed,  and  ease  of  use  of 
the  program.  Figure  1  depicts  the  GUIDE®  Control  Panel.  Other  important  features  of 
MATLAB®  5  are  the  use  of  variable  “structures”,  and  the  Editor/Debugger.  Structures 
can  be  built  to  contain  multiple  variables,  requiring  the  programmer  to  pass  only  one 
variable  name  to  the  different  m-files  and  functions.  This  is  invaluable  when  dealing  with 
the  large  numbers  of  files  associated  with  JANRAD  98.  The  Editor/Debugger 
automatically  indents  and  highlights  specific  MATLAB  commands  making  it  easier  for 
the  programmer  to  find  and  correct  errors,  and  making  the  code  much  easier  to  read. 


Figure  1.  The  GUIDE®  Control  Panel  from  MATLAB®  5. 
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specific  details  on  the  development  of  the  GUIs  are  outlined  in  Dean  (1997),  and  Lapacik 
(1998).  This  “front  end”  design  makes  utilizing  the  code,  or  back  end,  essentially 
transparent  to  the  user.  Where  once  the  user  was  prompted  to  provide  or  ask  for  35  input 
parameters,  he  now  only  must  select  a  pre-compiled  data  file  which  contains  these 
parameters.  Figure  2  is  a  sample  of  the  command  line  of  the  old  JANHAD  version  3.1. 
Imagine  having  to  go  through  and  select  any  number  of  the  35  such  input  lines,  one  at  a 
time.  In  contrast.  Figure  3  displays  the  input  parameters  screen  of  JANRAD  98.  The 
values  from  the  selected  data  file  are  displayed  automatically.  Modification  of  any  of  the 
inputs  is  easily  accomplished  by  simply  overwriting  the  displayed  values. 


MATLAB  COMWiWO  WlMDOW  ■  "v 


I.  pressure  altitude  2.  teir^jerature 

3.  airspeed  4.  gross  wei^ 

5.  number  of  blades  6.  blade  radius 
7.  blade  root  chord  8.  hinge  offset 
9.  blade  grip  length  1 0.  blade  twist 

II.  blade  weight  1 2.  #  blade  elements 
13.  rotational  velocity  14.  #  azimuth  sectors 
15.  lift  curve  slope  1 6.  airfoil 

17.  collective  pitch  18.  flalplate  area 
19.  vert  proj ected  area  20.  wing  area 
21.  wing  span  22.  wing  CL 
23 .  wing  CDo  24.  wing  effi  cien<^  factor 

25.  horizontal  tail  area  26.  horizontal  tail  span 
27.  horizontal  tail  CL  28.  horizontal  tail  CDo 
29.  vertical  tail  area  30.  vertical  tail  span 
31.  vertical  tail  CL  32.  vertical  tail  CDo 
33.  auxili  ary  thrust  34.  rotor  blade  tsper  ratio 

35.  start  of  taper 

0.  NO  CHANGES 
Input  the  parameter  to  change:  1 

Ipa^ 

5 

1000 

^iPressure  altitude  (ft); 


Figure  2.  Sample  Input  Command  Window  of  JANRAD  version  3.1 
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The  interfaces  for  several  of  the  performance  module  improvements  are  contained 
on  this  screen.  Each  of  them  will  be  discussed  in  detail  in  section  II.  With  the  GUI 
implementation,  JAI^RAD  was  transitioned  from  a  slow,  command  line  program, 
reminiscent  of  MS  DOS,  to  a  much  more  efficient,  better  looking  program  more  in  line 
with  some  of  the  latest  professional  engineering  software  packages.  Due  to  time 
constraints  on  the  previous  author,  however,  several  design  functions  of  the  Performance 
module  were  not  completed. 
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Figure  3.  JANRAD  98  Performance  Input  Parameters  Screen 
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c. 


JANRAD  98  VERSION  5.0  PERFORMANCE  MODULE 


JANRAD  98  version  5.0  is  primarily  a  continuation  of  Lapacik’s  (1998)  work  by 
this  writer.  This  author  spent  approximately  six  weeks  working  with  Lapacik  to 
develop  the  requisite  GUI  and  Performance  module  knowledge  necessary  to  take 
over  the  work  where  he  left  off.  Accomplishments  during  that  period  included: 

•  Code  required  to  display  directory  and  files  available  to  the  user. 

•  Code  required  to  display  values  in  Performance  Input  screen. 

•  Design  of  callbacks  allowing  user  to  change  the  values  of  variables. 

•  Code  required  for  MATLAB®  to  save  and  print  input,  output,  and  matrix  files. 

•  Actual  tying  together  of  the  GUI  with  the  existing  JANRAD  code. 

•  Creation  of  basic  status  display  showing  user  the  progress  of  Performance  run. 

•  Modification  of  JANRAD  version  3.1  code  and  variables  to  correspond  with 
JANRAD  98  use  of  structures  and  graphics  handles. 

•  Addition  of  Sikorsky  airfoil  CL  and  CD  data,  and  construction  of  code 
allowing  its  use. 

•  Integration  of  different  GUI  screens  ensuring  smooth  and  proper  transfer 
between  them  with  proper  variable  values  being  passed. 


All  of  these  accomplishments  are  included  in  JANRAD  98  version  4.0  but  play  a  large 
role  in  the  accomplishment  of  version  5.0  improvements  to  the  Performance  module.  The 
major  areas  of  emphasis  in  this  thesis  for  the  completion  of  the  module  were  as  follows; 

•  Tie  in  existing  JANRAD  3.1  graphical  output  capabilities  and  develop 
additional  capabilities. 

•  Improve  the  visual  status  display  to  keep  user  better  informed  of  program 
progress  during  runs. 
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•  Improve  existing  airfoil  data  by  obtaining  manufacturer’s  data  corrected  for 
compressibility  effects  (Mach  number  dependent),  and  implementing  this  data 
into  JANIRAD  98  version  5.0. 

•  Develop  a  method  to  allow  the  user  to  input  a  vector  of  desired  blade  element 
dimensions  vice  a  computer  generated  element  vector. 

•  Develop  a  method  to  allow  user  to  add  an  additional  airfoil  at  any  desired 
blade  station  as  is  done  in  many  advanced  airfoil  designs. 

•  Develop  a  method  to  allow  the  user  to  specify  the  blade  twist  at  any  blade 
station  rather  than  assume  a  linear  blade  twist. 

•  Add  GUI  screen  to  allow  user  to  select  type  of  tailrotor  and  input  tail  rotor 
parameters. 

•  Adjust  program  to  allow  for  performance  calculations  on  compound 
helicopters  and  compounds  with  auxiliary  thrust. 

•  Add  main  rotor  radius  and  main  rotor  speed  iteration  methods  to  improve 
rotor  sizing  capabilities  of  the  program. 

•  Re-run  several  test  flight  scenarios  from  Eccles  (1996)  utilizing  correct 
Sikorsky  airfoil  data  and  compare  results  to  those  of  actual  UH-60  test  flight 
data. 

Each  of  the  above  improvements  are  discussed  in  detail  in  section  II. 

D.  JANRAD  98  VERSION  5.0  STABILITY  AND  CONTROL  MODULE 

An  initial  goal  of  this  thesis  was  to  complete  as  much  of  the  Stability  and  Control 
module  GUI  implementation  as  time  would  allow.  Interest  by  another  student  in 
continuing  the  thesis  work  allowed  for  a  pass  down  period  on  GUI  design  and 
MATLAB®  code  integration.  Using  the  Stability  and  Control  code  written  by  Wirth 
(1993)  and  the  GUI  design  methods  of  Lapacik  (1998)  and  Dean  (1997),  the  intial  input 
screens  for  the  module  were  created.  These  GUI  screens  are  included  as  Figures  12  and 
13. 


7 


E.  USER’S  GUIDE 

A  User’s  Guide  is  attached  as  Appendix  A  and  gives  an  overview  of  the  major 
features  and  procedures  for  using  JANRAD  version  5.0.  Originally  developed  by 
Lapacik  (1998)  for  version  4.0,  this  guide  has  been  updated  to  include  the  improvements 
of  version  5.0.  Additionally,  the  guide  will  give  an  introduction  to  the  Stability  and 
control  module  usage  procedures. 

F.  JANRAD  98  VERSION  5.0  FILE  STRUCTURE  FLOW  CHART 

An  updated  flow  chart  which  tracks  the  files  and  Callback  operations  of  JANRAD 
98  version  5.0  is  included  as  Figure  4.  The  files  referenced  in  the  flow  chart  are  included 
as  Appendices. 
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Figure  4.  JANRAD  98  version  5.0  File  Structure  Flow  Chart 
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n.  JANRAD  VERSION  5.0  IMPROVEMENTS 


A.  TIED  IN  EXISTING  JANRAD  3.1  GRAPHICAL  OUTPUT 

CAPABILITIES  AND  DEVELOP  ADDITIONAL  CAPABILITIES 

The  earlier  versions  of  JANRAD,  including  JANRAD  version  3.1,  contained 
limited  graphical  output  capabilities.  Those  plot  routines  present  in  version  3.1  were 
customized  by  previous  users  to  fit  their  output  needs.  To  provide  the  flexibility 
necessary  for  users  to  extract  desired  information  from  the  performance  results,  a  number 
of  available  plots  were  designed  for  each  of  the  different  iteration  methods.  The 
Airspeed  Iteration  plot  screen  is  displayed  as  Figure  5.  Any  or  all  of  the  available  plots 
may  be  selected  by  the  user. 


Figure  5.  Airspeed  Iteration  Plot  Screen 
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Figure  6  shows  the  Power  Required  plot  for  an  airspeed  iteration  from  50-120 
knots.  Separate  GUI  screens  were  developed  for  each  of  the  iteration  methods.  When  the 
user  selects  the  available  “PLOT”  option,  the  pertinent  screen  appears  allowing  them  to 
select  the  desired  plots.  Upon  selecting  the  “Create  Plots”  button,  a  MATLAB®  file, 
known  as  an  m-file,  creates  the  plots.  Most  of  the  plots  are  created  utilizing  calculated 
performance  outputs,  however,  some  prompt  the  user  for  additional  parameter  inputs. 


Rotor  Power  Required  vs  Airspeed 


Figure  6.  Rotor  Power  Required  vs.  Airspeed  Plot 
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B.  IMPROVED  THE  VISUAL  STATUS  DISPLAY  TO  KEEP  USER  BETTER 


INFORMED  OF  PROGRAM  PROGRESS  DURING  RUNS 

The  early  versions  of  JANRAD,  (i.e.  version  3.1)  contained  a  series  of  status  lines 
which  displayed  on  the  MATLAB®  command  window  to  keep  the  user  advised  of  the 
status  of  the  run.  One  problem  with  the  use  of  the  GUI  is  that  the  code  runs  in  the 
background  and  therefore  is  mostly  transparent  to  the  user.  Due  to  the  extended  run 
times  involved  with  some  scenarios,  it  was  desired  to  develop  a  means  of  keeping  the 
user  informed  of  the  status  of  the  run.  Figure  7  is  a  representative  status  during  a 
JANRAD  98  version  5.0  run.  The  right  half  of  the  screen  shows  the  four  status  boxes 
created  to  inform  the  user  which  part  of  the  trim  sequence  is  being  completed,  the  elapsed 
time  of  the  run,  the  iteration  number  of  the  trim  sequence  which  is  being  completed,  and 
the  value  of  the  iteration  method  variable. 
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C.  IMPROVED  EXISTING  AIRFOIL  DATA  BY  OBTAINING 

MANUFACTURER’S  DATA  CORRECTED  FOR  COMPRESSIBILITY 

EFFECTS  (MACH  NUMBER  DEPENDENT),  AND  IMPLEMENTING 

THIS  DATA  INTO  JANRAD  98  VERSION  5.0 

One  of  the  major  recommendations  of  Eccles  (1995)  was  to  attempt  to  obtain 
airfoil  data  corrected  for  mach  number  and  kinematic  viscosity  so  that  the  program  would 
be  more  reliable  at  altitudes  above  approximately  8-10,000  feet.  He  was  able  to  add 
NACA  0012  data  which  was  mach  number  dependent,  but  both  the  VR12  and  HH02 
airfoils  provided  single  CL  and  CD  curves.  This  author  was  able  to  obtain  new  data  from 
both  Sikorsky  and  Boeing  which  provide  CL  and  CD  curves  for  mach  numbers  from  0.0 
up  to  1.0.  Since  pressure  altitude  is  an  input  parameter  for  the  performance  routine  and 
mach  number  varies  with  altitude,  the  discrepancies  at  high  altitudes  shown  by  Eccles 
(1995),  should  be  reduced  or  eliminated.  As  will  be  shown  later  in  the  validation  section 
of  this  thesis,  the  results  obtained  using  mach  number  dependent  airfoil  data  agree  much 
closer  with  UH-60  flight  test  data  than  that  produced  by  Eccles  with  the  single  curve 
VR12  data.  The  addition  of  the  Sikorsky  data  brought  the  airfoil  database  in  JANRAD 
98  version  5.0  up  to  6  airfoils.  They  are  the  HH02,  VR12,  VR15,  NACA-0012, 
Scl094R8,  and  the  Scl095R8.  For  this  data,  we  have  compressibility  corrected  data  in 
the  cases  of  the  VR  series  airfoils  (Boeing),  the  SC  series  airfoils  (Sikorsky),  and  the 
NACA-0012  airfoil  (UTRC).  Additionally,  the  interpolation  capabilities  of  MATLAB® 
were  utilized  requiring  only  tabulated  data  and  not  the  curve  fitted  polynomials  utilized 
by  Nicholson  and  Eccles.  This  results  in  more  accurate  CL  and  CD  values  being  utilized 
in  the  trim  routine.  Appendix  B  contains  summary  CL  and  CD  plots  for  the  VR12,  VR15, 
Scl094R8  and  Scl095R8  airfoils  to  allow  a  user  to  match  requirements  of  any  particular 
design. 
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D.  DEVELOPED  A  METHOD  TO  ALLOW  THE  USER  TO  INPUT  A 
VECTOR  OF  DESIRED  BLADE  ELEMENT  DIMENSIONS  VICE 


COMPUTER  GENERATED  ELEMENT  VECTOR 

The  JANRAD  code  creates  a  vector  of  blade  element  location  dimensions  based 
on  main  rotor  radius  and  the  number  of  blade  elements  input  by  the  user.  For  some 
applications  it  may  be  desired  to  replace  this  “evenly  spaced”  vector  to  allow  the  user  a 
better  picture  of  what  is  happening  at  a  specific  blade  station.  This  capability  would 
allow  the  user  to  increase  or  decrease  the  spacing  of  the  blade  elements  at  will.  Used  in 
conjunction  with  user  defined  blade  twist,  the  user  can  specify  the  blade  dimension  and 
corresponding  blade  twist.  By  choosing  to  enter  unevenly  spaced  blade  elements  on  the 
input  parameters  screen,  the  user  is  presented  by  a  screen  (Figure  8),  on  which  the  blade 
element  dimensions  may  be  entered. 


The  non-aerodynamic  dimension  of  the  blade,  or  “Grip  Ratio”  (an  input  parameter 
accounting  for  the  blade  root  end),  is  automatically  entered  as  the  default  first  blade 
element  location.  Additionally,  the  “Effective  Blade  Radius  Ratio”  (provides  for  tip  loss), 
is  calculated  and  displayed.  This  is  the  same  screen  on  which  nonlinear  blade  twist 
entries  may  be  made.  Nonlinear  blade  twist  will  be  discussed  in  a  following  section. 

After  blade  element  location  dimensions  are  entered,  JANRAD  98  version  5.0 
calculates  the  element  spacing  and  adjusts  the  dimensions  to  the  center  of  each  element. 
Built  in  error  detection  gives  the  user  an  error  message  if  a  dimension  greater  than  the 
effective  blade  radius  is  entered.  Once  constructed,  this  vector  of  blade  elements  is 
utilized  for  performance  calculations  by  JANRAD  98  version  5.0.  At  this  point  in  the 
program,  no  blade  element  is  created  out  past  the  effective  blade  radius.  Later  an 
adjustment  is  made  so  that  profile  drag  forces  on  the  tip  of  the  blade  are  accounted  for, 
but  lift  forces  are  zeroed  out. 


E.  DEVELOPED  A  METHOD  TO  ALLOW  USER  TO  ADD  AN 

ADDITIONAL  AIRFOIL  AT  ANY  DESIRED  BLADE  STATION 

Many  advanced  rotor  blades  are  made  up  of  more  than  one  airfoil  section.  This 
“meshing”  of  airfoils  provides  for  better  airfoil  performance  due  to  the  use  of  varied 
airfoil  thickness  and  shapes.  It  is  primarily  utilized  out  near  the  rotor  tip.  In  order  to 
more  accurately  model  rotor  performance,  it  was  desired  that  JANRAD  98  version  5.0 
have  this  capability.  Added  as  an  option  on  the  performance  input  screen,  the  user  can 
choose  to  perform  an  airfoil  mesh  and  specify  at  what  r/R  value  it  should  occur.  Upon 
entering  this  value  a  screen  appears  which  allows  selection  of  the  two  airfoil  types.  In  all 
performance  calculations  the  CL  and  CD  curves  for  the  appropriate  airfoils  are  utilized. 
Although  it  is  conceivable  that  some  blades  may  utilize  more  than  two  airfoil  types, 
JANRAD  98  version  5.0  allows  the  use  of  only  two  airfoils.  Figure  9  shows  the  airfoil 
mesh  screen.  If  the  user  allows  the  program  to  generate  a  vector  of  blade  elements  and 
then  selects  a  mesh  point  which  does  not  align  with  a  blade  element,  a  logic  statement 
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calculates  the  closest  existing  blade  station  to  that  selected  by  the  user  for  the  mesh. 
Therefore,  there  may  be  a  small  discrepancy  in  where  the  mesh  takes  place  with  that 
selected.  This  should  have  a  negligible  effect  on  the  output.  If  the  user  desires  an  exact 
mesh  point  then  the  uneven  blade  element  feature  should  also  be  selected. 

F.  DEVELOPED  A  METHOD  TO  ALLOW  THE  USER  TO  SPECIFY  THE 
BLADE  TWIST  AT  ANY  BLADE  STATION  RATHER  THAN  ASSUME  A 
LINEAR  BLADE  TWIST 

As  was  discussed  in  the  blade  element  section,  it  is  no  longer  common  practice  to  have  a 
linear  twist  over  the  length  of  the  rotor  blade.  Previous  versions  of  JANRAD  were  based 
on  the  assumption  that  twist  was  linear.  To  account  for  non-linear  twist  it  was  necessary 
to  make  changes  to  the  way  JANRAD  98  version  5.0  calculated  the  twist  at  each  blade 
element.  Utilizing  the  blade  element/blade  twist  screen  shown  in  Figure  8,  it  is  now 


Figure  9.  Airfoil  Mesh  Selection  Screen 


possible  for  the  user  to  calculate  the  twist  at  any  desired  blade  element  dimension  and 
input  the  value.  Figure  10  illustrates  the  blade  structural  twist  of  the  UH-60A  rotor  blade. 
Although  mostly  linear,  the  twist  varies  a  great  deal  out  near  the  tip  resulting  in  a  “fish 
hook.”  This  drastic  change  in  twist  helps  optimize  aerodynamic  characteristics  out  near 
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the  tip.  Similar  to  the  blade  element  calculations,  the  blade  twist  at  the  left  edge  of  a 
blade  element  is  entered.  The  code  is  written  to  calculate  the  length  of  the  blade  elements, 
adjust  the  twist  output  to  the  middle  of  the  element,  and  calculate  the  new  twist  value  at 
this  position.  If  the  right  edge  of  the  last  blade  element  does  not  happen  to  correspond  to 
the  effective  blade  radius,  a  value  for  the  twist  of  that  element  will  not  exist.  The  code  is 
written  such  that  the  slope  of  the  twist  vector  from  the  previous  blade  element  is  utilized 
to  calculate  the  twist  for  the  last  element.  If  this  approximation  is  insufficient,  as  it  would 
be  for  the  IJH-60  twist  distribution,  the  user  would  have  to  vary  his  blade  element 
spacing  to  decrease  the  spacing  out  near  the  tip  to  capture  this  twist  variance. 


Figure  10.  UH-60A  Blade  Structural  Twist 


G.  ADDED  GUI  SCREEN  TO  ALLOW  USER  TO  SELECT  TYPE  OF  TAIL 


ROTOR  AND  INPUT  ROTOR  PARAMETERS 

A  major  problem  noted  by  past  users  of  JANRAD  was  that  program  changes  were 
introduced  each  year  by  the  student  design  teams  utilizing  it  for  the  AHS  Design 
competition.  This  was  no  more  evident  than  in  the  code  written  to  calculate  tail  rotor 
performance  parameters.  In  reviewing  the  code  during  this  thesis  it  was  discovered  that 
JANRAD  was  restricted  to  calculating  the  performance  of  a  fan-in-tail  type  of  tail  rotor. 
Again,  to  increase  the  flexibility  of  JANRAD  version  5.0,  a  selection  was  added  to  the 
performance  input  screen  which  allows  the  user  to  choose  between  a  conventional  tail 
rotor,  fan-in-tail  or  notar.  A  screen  was  then  added  allowing  the  user  to  enter  tail  rotor 
dimensions  and  parameters.  The  performance  of  the  tail  rotor,  based  on  the  user  inputs, 
is  calculated  and  included  in  many  of  the  graphical  output  plots.  The  tail  rotor  parameters 
input  screen  is  included  as  Figure  11. 


Figure  11.  Compound  Helicopter  and  Tail  Rotor  Input  Parameters 
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Time  constraints  only  allowed  for  the  conventional  tail  rotor  code  to  be  fully 
implemented.  Although  the  displays  for  the  other  types  are  included.  The  underlying 
JANRAD  code  has  not  been  completed.  For  the  conventional  helicopter  input,  rotor 
speed  multiplied  by  rotor  radius  is  assumed  to  be  equal  for  the  main  rotor  and  tail  rotor. 
That  is,  tail  rotor  rpm  is  selected  on  the  basis  that  main  and  tail  rotors  have  the  same  tip 
speed.  A  default  value  for  tail  rotor  speed  based  on  this  relationship  is  displayed  on  the 
tail  rotor  parameters  input  screen. 

H.  ADJUSTED  PROGRAM  TO  ALLOW  FOR  PERFORMANCE 
CALCULATIONS  ON  COMPOUND  HELICOPTERS  AND 
COMPOUNDS  WITH  AUXILIARY  THRUST 


The  1998  AHS  Student/Industry  Design  competition  RFP  calls  for  a  rotorcraft 
designed  to  carry  passengers  in  the  Northeast  corridor.  To  meet  requirements,  the  design 
team  selected  a  compound  helicopter  with  auxiliary  thrust  capable  of  reaching  speeds  of 
180-210  knots.  During  preliminary  design  work  the  need  for  additional  capabilities  from 
JANRAD  98  version  5.0  became  evident.  Early  versions  of  JANRAD  (i.e.  version  3.1) 
had  capabilities  of  providing  auxiliary  thrust  and  a  wing,  but  did  not  allow  for  scheduled 
control  of  the  the  tip  path  plane  angle  of  the  main  rotor,  or  varying  the  amoimt  of  thrust 
as  a  function  of  the  drag  of  the  aircraft.  The  left  half  of  Figure  1 1  was  designed  to 
provide  these  input  capabilities.  User  inputs  lead  to  a  variance  from  the  original 
JANRAD  code,  setting  the  tip  path  plane  to  any  desired  angle  and/or  allowing  an 
auxiliary  thrust  schedule.  This  can  be  manipulated  to  vary  as  airspeed,  wing  area  or  other 
parameters,  and  the  resulting  drag,  change.  This  added  feature  allows  the  user  to 
optimize  a  compound  helicopter  design  by  observing  the  effect  of  small  changes  made  to 
the  tip  path  angle  or  auxiliary  thrust. 


20 


During  the  design  team’s  work  it  was  found  that  setting  the  tip  path  plane  angle  to 
zero  in  cruise  flight  while  allowing  the  auxiliary  propeller  to  provide  the  required 
horizontal  thrust  minimized  rotor  drag  for  a  positive  savings  in  total  power  required. 
Future  improvements  to  this  capability  would  be  to  automate  the  capability  of  setting  an 
auxiliary  thrust  schedule  for  any  desired  airspeed  range  and/or  varying  the  tip  path  plane 
angle  with  airspeed  or  flight  regions  (hover,  climb,  cruise,  etc).  Additionally,  a  method 
to  set  the  desired  percentage  of  lift  that  the  wing  should  carry  at  any  airspeed  by  varying 
collective  would  be  beneficial. 

L  ADDED  MAIN  ROTOR  RADIUS  AND  MAIN  ROTOR  SPEED  ITERATION 
METHODS  TO  IMPROVE  ROTOR  SIZING  CAPABILITIES  OF  THE 
PROGRAM 

The  primary  purpose  of  the  JANRAD  Performance  module  is  for  sizing  main  and 
tail  rotors,  and  engines  during  preliminary  design  of  a  helicopter.  To  properly  do  this  one 
must  be  able  to  vary  rotor  radius  and  rotational  speeds  to  find  their  optimum  values.  To 
better  aid  this  goal,  two  additional  iteration  methods  were  added  to  the  JANRAD  iteration 
methods  screen.  These  are  Rotor  Radius  and  Rotor  Speed.  As  described  in  Lapacik 
(1998),  these  methods  allow  the  user  to  specify  minimum,  maximum  and  interval  values. 
The  performance  module  is  then  run  and  generates  vectors  of  output,  which  may  be 
plotted  to  provide  the  user  with  desired  performance  data. 

J.  IMPLEMENTED  LIFT  DISTRIBUTION  PLOTS  TO  BETTER  MATCH 
FLIGHT  TEST  DATA 


When  aircraft  such  as  the  UH-60A  are  instrumented  for  flight  tests,  pressure 
transducers  are  used  on  the  blades  to  measure  the  pressure  differentials  at  specific  radial 
locations.  These  pressure  differences  directly  represent  the  incremental  lift  or  normal 
force  (dN)  of  the  blade  at  that  location.  Traditionally,  computer  simulation  models  have 
output  thrust  distributions  (dT)  on  rotor  blades  instead  of  lift  distributions.  The 
distinction  is  that  the  incremental  thrust  vectors  are  aligned  parallel  to  each  other  and 
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parallel  to  the  rotor  axis  of  rotation.  This  discrepancy  raises  the  question  of  whether  there 
are  significant  differences  between  the  two.  Figure  12  shows  a  blade  element  with  both 
thrust  and  lift  vectors,  and  their  components  represented.  The  equations  for  calculating 
incremental  thrust  and  lift  are  also  shown. 


dT  =  0.5*p*cblade*dr*(Up^2+Ut^2)*(CL*cos(a))-CD*sin(O)); 
dN  =  0.5*p*cblade*dr*(Up^2+Ut.^2)*(CL*cos(a)+CD*sin(a)); 

Figure  12,  Lift  and  Thrust  Vectors  for  Blade  Element  in  Forward  Flight 


To  examine  this  question  the  equations  for  lift  were  added  into  JANRAD  98 
version  5.0,  and  plots  identical  to  the  thrust  distribution  plots  were  created.  Sample  thrust 
distribution  and  lift  distribution  plots  for  the  UH-60A  at  115  knots  are  contained  in 
Appendix  F.  These  show  that  there  is  minimal,  if  any,  difference  between  the  two  plots. 
Therefore,  thrust  distribution  plots,  labeled  as  airload  plots,  will  continue  to  be  used 
throughout  this  thesis. 
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m.  REPLICATION  OF  TEST  FLIGHT  SCENARIOS  FROM  ECCLES  (1996) 


A.  BACKGROUND 

In  1995,  LT  David  Eccles  completed  a  thesis  which,  in  part,  set  out  to  validate  the 
results  of  then  JANRAD  version  3.1  with  Sikorsky  UH-60A  test  flight  data  gathered  from 
NASA’s  Ames  Research  Center.  Given  the  ability  to  access  NASA’s  Tilt  Rotor 
Engineering  Database  System  (TRENDS),  he  was  able  to  download  data  gathered  from 
extensive  test  flights  of  a  fully  instrumented  UH-60A.  Through  data  manipulation, 
described  in  detail  in  his  thesis,  he  generated  plots  of  airload  distribution  across  the  rotor 
disk,  power  required  at  various  airspeeds  ranging  from  hover  to  cruise,  and  thrust 
moment  variations  with  azimuth.  Although  his  results  in  most  instances  validated 
JANRAD’s  calculations  by  producing  results  matching  very  well  those  of  NASA  the 
correct  airfoil  data  of  the  UH-60A  were  not  available  to  him  at  that  time.  In  place  of  the 
UH-60A  airfoil  data,  he  used  the  Boeing  VR-12  airfoil.  This  data  had  originally  been 
provided  NPS  in  1993  for  the  full  angle  of  attack  range  to  360  degrees.  The  data  also 
included  compressibility  corrections  at  lower  angles  of  attack  in  increments  of  Mach 
number  from  0.0  to  1.0.  Between  1993  and  1995  the  compressibility  corrections  were 
removed  from  this  data.  LT  Eccles  was  unaware  of  this,  and  as  a  result,  did  not  have 
compressibility  effects  properly  accounted  for  in  his  work  to  validate  the  IJH-60A.  As  a 
result,  there  were  major  disparities  between  JANRAD’s  outputs  and  the  UH-60A  flight 
test  data  at  altitudes  above  8,000-10,000  feet  as  reported  in  Eccles  (1995).  At  these 
altitudes  there  is  significant  variation  in  Mach  number  due  to  decreased  density  of  the  air. 


B.  ROLE  OF  JANRAD  98  VERSION  5.0  IMPROVEMENTS 

The  addition  of  the  Sikorsky  Scl094R8  and  Scl095R8  airfoil  data  has  provided 
what  is  hoped  to  be  a  solution  to  the  high  altitude  output  variations  from  the  test  flight 
data  experienced  by  Eccles  (1995).  Mach  number  is  calculated  by  JANRAD  before 
accessing  the  CL  and  CD  tables,  and  it  will  vary  for  a  given  airspeed  as  the  pressure 
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altitude  increases  and  the  air  density  decreases.  The  Sikorsky  data  is  tabulated  according 
to  angle  of  attack  from  -180  degrees  to  180  degrees  for  the  following  Mach  numbers; 
0.0,  0.3,  0.4,  0.5,  0.6,  0.7,  0.8,  0.9,  1.0. 

The  airfoil  mesh  capability  of  JANRAD  version  5.0  will  allow  for  the  blade  to  be 
modeled  closely  approximating  the  actual  UH-60A  blade.  The  Scl095R8  airfoil  is 
utilized  from  the  blade  root  out  to  approximately  0.8  r/R  and  than  the  Scl094R8  is 
utilized  from  that  point  out  to  the  tip.  The  mesh  point  and  airfoils  can  be  readily  selected 
on  the  performance  input  screen. 

The  blade  element  and  non-linear  blade  twist  screen  can  be  utilized  to  model  the 
structural  twist  of  the  lJH-60  rotor  blade  as  is  shown  in  Figure  10.  Eccles  (1995)  utilized 
the  equivalent  linear  twist  of -18  degrees  for  his  thesis. 

Using  the  graphics  capabilities  added  to  JANRAD  98  version  5.0,  the  airload 
plots  contained  in  Eccles’  thesis  can  be  easily  created  to  verify  data.  For  the  purpose  of 
the  qualitative  analysis  of  results,  these  plots  will  be  modified  to  contain  all  three  sets  of 
data;  Eccles,  Test  Flight  results,  and  JANRAD  version  5.0  results. 

C.  RESULTS 

1.  Inputs  to  JANRAD  version  5.0 

Inputs  were  initially  held  to  those  values  used  by  Eccles  except  in  the  case  of  the 
Sikorsky  airfoil  data  and  blade  twist  distribution.  The  flight  conditions  for  the  different 
test  flights  were  also  utilized  to  more  closely  replicate  results.  After  several  attempts  to 
replicate  power  required  plots  proved  unsuccessful,  these  inputs  were  examined.  It  was 
discovered,  after  discussions  with  Sikorsky  Aircraft,  that  the  equivalent  flat  plate  areas 
that  had  been  used  were  too  large.  The  basic  flat  plate  area  used  in  their  performance 
models  is  30  square  feet  and  it  is  adjusted  based  on  fuselage  angle  of  attack  and  center  of 
gravity  location.  It  is  also  corrected  for  stabilator  incidence.  Therefore,  a  range  of  26-40 
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feet  was  used  with  the  demarcation  ranges  listed  below  in  Table  1.  These  areas  were 
added  into  the  JANRAD  98  version  5.0  code.  Additionally,  Eccles  (1995)  had  used  a 
value  of  0.7  for  the  horizontal  tail  coefficient  of  lift  resulting  in  a  lift  value  of  nearly  3000 
pounds  at  the  horizontal  tail  at  160  knots.  As  the  present  JANRAD  rotor  trim  code  trims 
for  the  case  where  the  aircraft  center  of  gravity  lies  on  a  vertical  line  through  the  axis  of 
rotation  of  the  main  rotor  hub,  it  is  believed  that  large  offset  force  would  have  introduced 
errors  into  rotor  trim  results  and  ultimately,  power  required  calculations.  This  was 
corrected  by  obtaining  from  Sikorsky  their  values  for  horizontal  tail  loading  versus 
airspeed.  At  slow  speeds,  negligible  horizontal  tail  loads  exist.  For  a  16,450  pound  gross 
weight  helicopter,  at  160  knots  with  a  slightly  forward  center  of  gravity,  their  test  data 
showed  a  dovmload  of  1460  pounds  at  the  horizontal  tail.  A  linear  approximation  of  this 
download  was  placed  into  the  JANRAD  98  version  5.0  code  to  help  account  for  the 
power  requirement  which  will  be  associated  with  it.  Further  discussions  with  Sikorsky 
centered  around  the  non-linear  twist  of  the  UH-60A  rotor  blade.  They  approximate  this 
in  their  analysis  by  using  a  linear  equivalent  twist  of  14-16  degrees.  A  median  value  of 
15  degrees  was  used  for  all  JANRAD  power  required  runs. 


Airspeed 

0  to  50  Kts 

50  to  90  Kts 

90  to  140  Kts 

140  to  160  Kts 

Flat  Plate 

Area 

35  ft^ 

32  ft^ 

30  ft^ 

28  ft^ 

Table  1.  Equivalent  Flat  Plate  Area  Values  for  the  IIH-60A  Model 


2.  Airloads 

Preliminary  JANRAD  runs  in  which  the  actual  twist  of  the  UH-60A  rotor  blade 
was  approximated  showed  a  spike  in  the  radial  distribution  of  lift  along  the  blade.  This 
occurred  at  a  point  along  the  blade  that  corresponded  to  the  location  of  the  start  of  the 


25 


“fish  hook”  twist  distribution.  Three  possible  explanations  for  this  phenomena  were 
postulated  ;  (1)  the  tapering  or  camber  of  the  meshed  section  of  Scl094R8  airfoil  used  at 
the  tip  of  the  actual  lJH-60  blade  is  not  modeled  correctly  in  JANRAD  98  version  5.0;  (2) 
there  are  significant  3-D  tip  vortex  effects  present  on  the  UH-60A  blade  normally 
compensated  for  by  the  “fish  hook”  which  were  not  accounted  for  in  the  JANRAD  98 
version  5.0  model;  and  (3)  the  UH-60A  swept  blade  tip  is  not  modeled  in  JANRAD  98 
version  5.0. 

Figures  D.l.  through  D.4.  show  the  thrust  distribution  plots  for  the  UH-60A  at 
HOGE  and  115  knots  with  the  Scl095r8  and  Scl094r8  airfoils  meshed  at  0.80  r/R.  As 
can  be  seen,  the  general  curve  follows  that  of  the  test  flight  data  out  to  the  “fish  hook”  in 
the  twist  distribution.  Even  the  slight  increase  in  thrust  at  the  mesh  point  is  evident. 
Since  the  radical  change  in  structural  twist  occurs  out  near  the  tip  where  JANRAD’s  two 
dimensional  theory  and  constant  tip  loss  assumptions  break  down,  and  the  twist  is  not 
modeled  even  in  Sikorsky’s  models,  the  rest  of  the  runs  were  made  using  the  equivalent 
linear  twist  of -15  degrees.  Figures  D.3  through  D.IO  show  UH-60A  radial  airload 
distributions  at  psi=  0,  90,  180  and  270  degrees  for  airspeeds  of  0,  65,  and  115  knots. 
Notice  that  the  JANRAD  98  version  5.0  predicted  results  more  closely  matching  those  of 
the  actual  test  data  than  do  the  previous  calculations  of  Eccles  (1995)  in  most  cases.  This 
is  expected,  if  for  no  other  reason  than  the  use  of  actual  UH-60A  mach  number  dependant 
airfoil  data  instead  of  the  single  curve  VR-12  data.  Tip  airloads  are  still  not  modeled 
very  closely  due  to  an  inability  to  model  the  3-D  flow  of  the  blade’s  swept  tip. 

3.  Power  Required  vs.  Airspeed 

Figures  E.l  through  E.4  validate  the  power  required  curves  of  the  UH-60A  with 
JANRAD  98  version  5.0.  Shown  are  traces  of  actual  and  predicted  main  rotor  power 
versus  airspeed  for  the  UH-60A.  In  all  cases,  the  helicopter  is  in  straight  and  level  flight. 
The  flight  conditions  were  obtained  along  with  the  actual  test  data  from  the  TRENDS 
database.  The  primary  differences  from  flight  to  flight  are  that  the  helicopter’s  gross 
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weight  and  the  altitude  at  which  the  flights  were  flown  both  increased  as  the  program 
progressed. 

An  important  contribution  of  Eccles  (1995)  work  was  recognizing  that  flat  plate 
areas  had  to  also  be  adjusted  to  account  for  the  automatic  flight  settings  of  the  variable 
incidence  horizontal  stabilator  on  the  UH-60A.  In  his  work  and  the  present  work,  it  was 
important  to  compensate  by  adjusting  the  overall  equivalent  flat  plate  area  input  to  the 
program. 

Discussions  with  Sikorsky  provided  insight  into  realistic  flat  plate  areas  and 
horizontal  tail  forces  versus  airspeed.  These  assisted  in  producing  reasonable  results. 
This  shows  the  sensitivity  of  the  power  required  to  small  variations  of  flat  plate  area,  and 
the  importance  of  knowing  accurately  what  the  flat  plate  area  of  any  given  helicopter  is  at 
every  flight  condition.  In  the  case  of  both  the  UH-60A  Blackhawk  and  the  AH-64A 
Apache  helicopters,  scale  model  tests  were  conducted  in  the  NASA  Langley  low  speed 
wind  tunnel  to  obtain  corresponding  flat  plate  areas. 

Limitations  of  up  to  ten  percent  in  predicting  power  required  below 
approximately  50  knots  can  be  attributed  to  well  understood  approximations  in  programs 
such  as  JANRAD.  The  classic  text  by  Gessow  &  Meyers  (1952)  cited  the  following  as 
potential  sources  of  error  in  hover  performance  prediction: 

>  Profile-drag  losses 

>  Nonuniform  inflow 

>  Slipstream  rotation 

>  Tip  losses 


For  the  case  of  a  preliminary  design  tool,  the  discrepancies  between  the  JANRAD 
98  version  5.0  results  and  the  test  flight  data  can  be  considered  small.  JANRAD  98 
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version  5.0  predicted  values  within  approximately  five  percent  throughout  all  runs,  at 
varying  altitudes,  airspeeds,  and  temperatures.  In  order  to  increase  the  expected 
accuracy,  significant  changes  to  the  JANRAD  code  would  need  to  be  made.  These 
changes  would  increase  the  complexity  and  running  time  of  the  program,  negating  the 
primary  reason  it  was  designed;  to  provide  a  user  friendly,  preliminary  design  tool,  based 
on  industry  accepted  procedures  and  assumptions. 
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IV.  CREATING  STABILITY  AND  CONTROL  GUI  ARCHITECTURE 


A.  DESIGNING  THE  FRONT  END 


Utilizing  the  methods  and  lessons  learned  from  development  of  the  Performance 
Graphical  User  Interface  (GUI),  work  was  begun  on  the  Stability  and  Control  module  of 
JANRAD  98  version  5.0.  Section  II  of  Lapacik’s  (1998)  thesis  outlines  in  detail  the  use 
of  GUIDE  ®  to  develop  figure  windows.  The  Stability  and  Control  module  required  an 
additional  64  variable  entries  in  order  to  calculate  all  of  the  pertinent  stability  derivatives. 
A  structure  containing  the  new  input  variables  was  created  was  saved  into  the  existing 
data  files.  Two  input  screens,  shovm  in  Figures  12  and  13,  were  developed  which  contain 
descriptors  and  edit  text  boxes  with  all  values  displayed. 


Figure  13.  Stability  and  Control  Input,  Screen  1  of  2 
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These  values  are  automatically  loaded  when  a  data  file  is  selected  at  the 
beginning  of  the  JANRAD  98  version  5.0  session.  Even  if  the  user  elects  to  create  a  new 
input  file  instead  of  loading  an  existing  one  for  the  Performance  module,  the  option  will 
be  given  to  load  an  existing  file  for  the  Stability  and  Control  section  due  to  the  large 
number  of  variables  which  must  be  entered. 
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Figure  14.  Stability  and  Control  Input,  Screen  2  of  2 


The  MATLAB®  code  for  the  input  figures  was  automatically  generated  as  the 
figures  were  created.  Additional  properties  and  Callbacks  were  added  after  initial 
development  to  adjust  or  create  the  properties  and/or  functions  of  the  individual 
uicontrols.  As  was  the  case  with  the  Performance  module,  only  minor  changes  were 
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made  to  the  MATLAB®  code  while  tying  it  to  the  GUI  by  way  of  Callbacks  and 
Switchyards. 

B.  CONNECTING  THE  BACKEND 

As  the  file  structure  of  JANRAD  98  version  5.0  continued  to  grow,  keeping  track  of  M- 
files  and  variables  became  increasingly  difficult.  For  this  reason,  the  conventions 
discussed  in  section  HI  of  Lapacik  (1998)  were  strictly  adhered  to.  Both  file  and  variable 
name  conventions  were  continued  for  the  Stability  and  Control  module.  Switchyard 
Callbacks  and  Structures  greatly  assisted  in  simplifying  the  flow  of  the  file  structure  as 
well  as  making  it  easier  to  debug  mistakes  when  they  occurred.  The  Structure  capability 
was  especially  valuable  due  to  the  large  number  of  stability  and  control  variables  needing 
to  be  passed  among  the  various  M-files. 

C.  ARCHITECTURE 

The  branch  point  for  the  Stability  and  Control  module  was  previously  programmed  into 
the  Performance  module.  Selecting  Stability  and  Control  on  the  welcome  screen  sets  a 
switch  which  after  completion  of  the  performance  calculation,  takes  the  user  to  the 
Stability  and  Control  input  screens.  From  there,  the  GUI  and  Switchyard  functions 
provide  the  necessary  commands,  variable  creation/change,  and  execution  of  the 
additional  script  and  function  files  to  complete  the  Stability  and  Control  analysis.  If  the 
Stability  and  Control  option  is  selected  after  the  performance  calculations  have  been 
made,  the  user  will  be  taken  directly  to  the  stability  and  control  input  screeens. 
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V.  CONCLUSIONS 


Working  with  JANRAD  98  version  5.0  has  been  an  enlightening  experience.  A 
much  better  understanding  of  rotor  blade  performance,  effects  of  cross  sectional  area  on 
power  required,  and  some  of  the  limitations  of  certain  assumptions  has  been  gained. 
Through  examination  of  different  airfoils,  the  importance  of  rotor  blade  design  geared 
toward  an  aircraft’s  performance  envelope  have  become  evident.  We  find  that  good  rotor 
blade  design  is  a  compromise  both  between  high  and  low-speed  flight  and  between 
advancing  and  retreating  sides  of  the  rotor  disk. 

The  spanwise  airload  plots  in  Appendix  D  provided  a  very  good  proof  as  to  the 
accuracy  of  the  JANRAD  98  version  5.0  output.  Using  the  Scl094r8  and  Scl095r8 
meshed  rotor  blade  provided  spanwise  airload  distributions  much  closer  to  actual 
distributions  than  did  those  of  Eccles’  modeled  VR-12  blade.  Although  the  plots  are 
better,  the  limitations  of  JANRAD ’s  two  dimensional  assumptions  of  flow  become 
evident  out  toward  the  blade  tip.  Here  the  three  dimensional  flow  around  the  blade’s 
swept  tip  cause  variations  that  are  not  modeled  in  JANRAD.  These  tip  effects  are  time 
dependent  and  their  greatest  influence  is  on  predicting  the  time  history  of  blade  stresses. 

JANRAD  98  version  5.0’s  power  required  numbers  were  found  to  be  sensitive  to 
the  helicopter’s  equivalent  flat  plate  area.  Good  performance  calculations  require  that  the 
user  have  a  very  good  idea  of  actual  aircraft  flat  plate  areas  for  varying  flight  conditons. 
Once  these  values  were  determined  accurately  for  the  UH-60A,  the  power  required 
numbers  calculated  by  JANRAD  98  version  5.0  matched  those  of  the  test  data  very  well. 
Discrepancies  in  hover  power  required  values  are  largely  due  to  the  fidelity  of  predicting 
rotor  downwash  which  depends  upon  modeling  the  rotor  wake.  As  was  first  documented 
by  Eccles  (1995),  there  still  exists  some  disparity  in  JANRAD  98  version  5.0’s  power 
required  predictions  and  actual  test  data  at  altitudes  higher  than  8,000  -  10,000  feet. 
Discussions  with  Sikorsky  revealed  that  the  mach  number  corrections  to  the  airfoil  data 
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are  not  the  only  source  of  difference.  A  breakdown  in  the  assumptions  used  to  calculate 
power  required  tends  to  occur  at  combinations  of  high  altitudes,  high  gross  weight  and 
high  power  settings  that  can  explain  these  differences. 

Implementation  of  code  to  deal  with  design  of  compound  helicopters  revealed  two 
interesting  phenomena.  First,  setting  the  tip  path  plane  angle  to  some  small  angle,  zero 
being  the  best,  resulted  in  a  significant  decrease  in  rotor  drag  which  allowed  for  power 
savings  when  using  auxiliary  propulsion  at  high  speeds.  Second,  by  removing  a  large 
percentage  of  lift  from  the  rotor  and  placing  it  on  a  wing,  rotor  blade  design  became  even 
more  critical.  The  spanwise  thrust  distribution  was  altered  which  increased  the  local 
angle  of  attack  seen  by  blade  elements.  In  order  to  reach  higher  speeds,  blade  twist  had 
to  be  decreased  to  offset  this  tendency. 
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VI.  RECOMMENDATIONS 


Since  this  thesis  covered  more  than  one  area,  the  recommendations  section  will  be 
broken  into  two  specific  areas:  (1)  Performance  module  recommendations;  (2)  Stability 
and  Control  module  recommendations. 

A.  PERFORMANCE  MODULE  RECOMMENDATIONS 

Many  of  the  features  added  to  the  performance  module  are  the  result  of  recommendations 
made  in  other  JANRAD  theses.  The  following  areas  are  suggested  topics  for  future 
changes  to  this  program.  They  are: 

(1)  The  capability  to  offset  the  center  of  gravity  fi'om  the  center  of  the 
rotor  hub  during  the  rotor  trimming  process.  Adding  this  capability  would  allow 
JANRAD  to  be  used  to: 

(a)  Improve  the  capability  to  trim  for  varying  horizontal  tail 
parameters. 

(b)  Explore  the  effect  of  center  of  gravity  variations  on  rotor 
loads. 

(2)  Variable  inflow  at  airspeeds  above  hover  but  less  than  100  knots. 
This  would  help  to  more  closely  predict  power  required  at  these  airspeeds.  Due  to 
the  rotor  wake,  actual  power  required  in  this  range  is  slightly  greater  than  that 
calculated  by  JANRAD.  Also,  it  would  permit  investigating  vibrations  fi’om 
hover  to  100  knots. 

(3)  A  method  of  determining  angle  of  attack  of  the  wing  on  a 
compound  helicopter  to  better  model  rotor  downwash  effects. 
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(4)  Implement  a  free  wake  analysis  to  better  model  three  dimensional 
and  tip  effects. 

(5)  Implement  an  interactive  screen  which  diplays  Cl  and  Cd  plots  vs 
airspeed  to  allow  user  to  better  select  best  airfoil  to  meet  design  requirements. 

Additional  recommendations  for  the  Performance  module  are; 

(1)  Make  changes  to  the  JANRAD  code  which  calculates  the  mean 
thrust  location.  This  value,  when  allowed  to  wander  far  away  from  the  0.7  r/R 
assumed  increases  computation  time  and  introduces  innacuracies  into  output 
values. 


(2)  Incorporate  a  baseline  test  case  as  a  diagnostic  run.  This  would 
help  validate  JANRAD’ s  code  after  it  has  had  modifications  done  or  has  gone 
unused  for  an  extended  period  of  time. 

(3)  Talk  to  the  helicopter  manufacturers  and  government  laboratories 
to  ensure  the  input,  such  as  equivalent  flat  plate  area  at  different  flight  conditions, 
is  accurate.  This  will  pay  large  benefits  in  validation  studies. 

(4)  Continue  to  use  the  upgraded  capabilities  of  subsequent 
MATLAB®  releases  to  improve  the  GUI  operations. 

(5)  Continue  to  add  airfoils  in  the  C-81  format  to  the  JANRAD  library. 

This  will  increase  the  different  types  of  helicopters  which  can  be  designed. 

(6)  Implement  some  sort  of  file  or  directory  management  to  handle  the 
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increasing  size  and  complexity  of  the  module  as  the  GUI  is  made  more 
complicated.  This  will  become  especially  important  as  the  Stability  and  Control, 
and  the  Dynamics  modules  are  tied  together  with  the  Performance  module. 

(7)  Integrate  the  variables  for  fan-in-tail  and  notar  tail  rotor  types  into 
the  aircraft  data  files.  Also  add  logic  code  in  Trim.m  to  ensure  the  proper  tail 
rotor  calculations  are  completed. 

(8)  Automate  compound  helicopter  parameters  to  allow  for  scheduling 
of  percent  of  lift  on  wing,  auxiliary  thrust  with  airspeed,  and  tip  path  plane  angle 
with  airspeed. 

B.  STABILITY  AND  CONTROL  MODULE  RECOMMENDATIONS 

This  thesis  involved  only  a  limited  amount  of  work  to  improve  the  Stability  and 
Control  module.  The  primary  input  screens  were  developed  and  tied  into  the  existing 
code,  but  no  upgraded  capabilities  were  added.  As  this  work  is  being  continued  in 
another  thesis,  the  following  goals  should  be  of  primary  emphasis: 

(1)  Continue  to  develop  GUI  screens  for  other  aspects  of  the  module 
such  as  stability  derivative  outputs.  Introduce  file  print  capabilities  and/or  GUI 
screen  print  capabilities. 

(2)  Standardize  the  variable  names  between  the  Performance  and  the 
Stability  and  Control  modules.  These  two  modules  were  developed  separately  by 
the  original  authors  and  duplicate  many  variable  names. 

(3)  Develop  input  data  files  for  different  aircraft.  Due  to  the 
complexity  of  calculating  many  of  the  required  input  variables,  work  should  be 
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done  to  document  several  different  input  files  as  references.  These  can  be  loaded 
and  then  modified  as  necessary,  reducing  the  difficulty  for  the  user. 

(4)  Examine  and  expand  the  output  capabilities  based  upon 
improvements  to  current  MATLAB®  versions  over  older  ones.  This  could  include 
improved  graphical  outputs  as  well  as  simulink  modeling  and  simulations. 
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APPENDIX  A.  JANRAD  98  USER’S  GUIDE 


The  JANRAD  98  Users  Guide  is  written  as  a  brief  introduction  to  the  Joint 
Army/Navy  Rotorcraft  Analysis  and  Design  computer  program.  It  is  intended  to  explain 
the  basic  features  and  operation  of  the  program  and  assumes  a  basic  knowledge  of 
helicopter  mechanics  and  the  use  of  the  MATLAB®  programming  language  by  The 
MathWorks®  Inc. 

A.  SYSTEM  REQUIREMENTS 

JANRAD  98  requires  MATLAB®  version  5.0  or  MATLAB  Student  Edition 
version. 5.0  or  higher.  It  will  not  run  on  any  previous  versions.  JANRAD  98  version  5.0 
will  fit  on  a  single  1.44  MB  floppy  disk  and  will  need  that  much  memory  available  for 
installation.  JANRAD  98  requires  only  the  hardware  to  support  MATLAB®  5. 

B.  INSTALLATION 

The  recommended  installation  of  JANRAD  98  is  accomplished  by  first  creating  a 
subdirectory  of  MATLAB  called  Janrad98.  The  entire  contents  of  the  JANRAD  98 
floppy  disk  should  be  copied  into  this  directory.  Include  all  M-files  and  .mat  files. 
JANRAD  98  will  not  run  without  all  of  the  .mat  files. 

It  is  recommended  that  this  new  subdirectory  be  added  to  the  MATLAB  5  search 
path.  This  procedure  will  eliminate  the  need  to  change  the  working  directory  from  the 
command  line  each  time  JANRAD  98  is  run  and  allows  you  to  work  from  a  floppy  disk  if 
desired.  Adding  the  subdirectory  to  the  search  path  is  accomplished  by  selecting  File,  Set 
Path...  from  the  File  menu.  Change  the  current  directory  to  the  new  Janrad98 
subdirectory  by  using  the  Browse  button.  Then  press  the  Add  to  Path  push  button.  You 
will  then  be  given  the  option  to  save  the  new  path  or  just  use  the  new  path  for  the  active 
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session.  It  is  recommended  to  save  this  path.  Figure  A.  1  shows  the  MATLAB®  Path 
window. 
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Figure  A.I.  MATLAB  5  Path  Window. 


C.  STARTING  JANRAD  98 

Typing  janrad98  (lowercase,  one  word)  at  the  command  line  prompt  of  a  current 
MATLAB  session  starts  JANRAD  98.  This  action  will  launch  the  JANRAD  98  welcome 
window  shown  in  Figure  A.2. 
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Figure  A.2.  JANRAD  98  Start  Up  Window. 


D.  USING  JANRAD  98 

As  an  example,  the  use  of  this  program  will  be  demonstrated  by  selecting  a 
previously  saved  input  data  file  and  changing  the  weight,  airspeed  and  pressure  altitude. 
User  defined  blade  elements  and  blade  twist  will  be  entered.  Tail  rotor  parameters  will 
be  verified  but  not  changed.  The  input  and  output  files  will  be  saved  and  printed.  After 
the  performance  analysis  is  complete,  we  will  then  iterate  on  airspeed  from  80  to  100 
knots  in  increments  of  5  knots. 

First,  from  Figure  A.2,  select  the  Run/Edit  Existing  File  radio  button.  It  is  usually 
easier  to  edit  an  existing  file  because  Create  New  File  will  not  give  you  the  chance  to 
change  the  working  directory  if  desired.  Once  the  selection  has  been  made,  press  the 
Continue  »  button. 
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Figure  A.3.  Selecting  a  File  to  Edit. 


The  next  figure  window  to  appear  is  shown  in  Figure  A.  3.  This  window  allows 
you  to  change  the  working  directory  and  select  an  input  data  file.  To  change  the 
directory,  type  or  edit  the  desired  path  in  the  edit  box.  All  of  the  .mat  files  listed  in  the 
working  directory  are  displayed  in  the  list  box.  Input  data  files  are  saved  as  filename.mat. 
A  note  of  caution  here,  each  GUI  window  also  has  an  associated  guifilename.mat  file. 
The  user  should  name  input/output  data  files  using  helicopter  aircraft  designations  such 
as  UH-60A  h-99  or  h-designl  to  differentiate  from  JANRAD  98  GUI  files.  Next,  select 
an  input  file  to  edit  by  clicking  on  the  file  name.  For  this  example,  we  will  edit  the  UH- 
60 A.  mat  file.  Then  press  Continue  ». 
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The  Performance  Input  window  will  be  displayed  as  in  Figure  A. 4.  The  input 
data  will  be  displayed  within  the  appropriate  edit  boxes.  Any  or  all  of  the  parameters  can 
be  changed  at  this  point  without  altering  the  original  data  file.  You  will  have  the 
opportunity  to  save  the  new  data  if  you  chose  after  the  analysis  has  been  completed. 
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Figure  A.4.  Performance  Input  Parameters 

The  airspeed,  weight  and  pressure  altitude  can  be  edited  by  highlighting  and 
typing  100,  17,000  and  2,000  in  the  respective  edit  boxes.  Pressing  the  enter  key  is  not 
necessary  to  enter  the  new  value.  Using  the  Tab  key  or  clicking  on  another  edit  box  or 
control  will  enter  any  changes.  If  the  user  wishes  to  mesh  airfoils,  click  the  Blade  Airfoil 
Type  scroll  bar,  and  select  Airfoil_Mesh.  The  Begin  Mesh  at  (r/R)  box  will  be  enabled 
and  a  value  may  be  entered.  At  this  point,  select  both  the  non-linear  blade  twist  and 
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uneven  blade  element  spacing  blocks.  Note  that  the  blade  twist  and  number  of  blade 
element  boxes  are  disabled.  The  Print  Screen  button  will  print  a  draft  copy  of  the  GUI 
window  with  the  displayed  values  if  desired.  It  however,  will  not  record  the  file  name  for 
which  the  values  are  stored.  Now  press  the  Continue  »  button. 

From  the  Performance  Input  window,  JANRAD  98  will  call  the  Compound 
Helicopter  and  Tail  Rotor  Parameters  window.  Figure  A.  5.  In  our  example  we  are 
dealing  with  a  conventional  helicopter,  therefore  no  wing  or  auxiliary  thrust  is  present. 
We  do,  however,  need  to  verify  the  tail  rotor  parameters  which  have  been  either  loaded 
fi-om  the  data  file  or  calculated.  The  parameters  will  be  entered  in  the  appropriate  tail 
rotor  type.  Press  OK  when  ready  to  continue. 


[^COMPOUNP  HeUCOPTER  &  TAIL.  ROTOR  PARAWETgRg 


Bi4;  Ewr, 


VCbMPOUND  HSyQQPTER'OR 
'  ■  bOyPOlfND  HEUbbP .TER  .WITH . 


r:^LECTT9FS<tPF»AtnPu»f«^ie  ' 

tadiaBs'; 

|:rsEi£cr  ' 

tJcto:  Total  DnBgiscaloala&waTOthsSim'fo^SBe.  AaxiliBi>!;' 


BACK 


coNiriNUE» 


BiW 


j  55 

',V  t  '' 

P^e^cS'  ^  j  '0  35" 

j'ip 

32.883 


'y':C  ' 

. . 


Bbdiibd 

ZdliW 


'  ^picEmeter.^ 


^TAa " 


M  ^ Jia'tfster  Cxit  ^ 


--i 


Figure  A.5.  Enter  Compound  Helicopter  and  TaU  Rotor  Parameters 
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With  either  non-linear  blade  twist  or  uneven  blade  element  spacing  selected, 
JANRAD  98  will  next  go  to  the  Blade  Element  page,  shown  in  Figure  A.6. 


Figure  A.6.  Enter  Uneven  Blade  Elements  &  Non-linear  Blade  Twist 


The  grip  ratio  contained  in  the  loaded  data  file  will  automatically  be  displayed 
along  with  the  effective  blade  radius.  The  user  can  enter  up  to  twenty  blade  elements  and 
the  corresponding  twists.  IMPORTANT!  Ensure  dimensions  are  entered  to  the  left 
edge  of  the  blade  element  from  the  blade  root.  JANRAD98  will  automatically  calculate 
the  values  at  the  center  of  the  blade  elements.  Also,  do  not  enter  any  value  greater  than 
the  effective  blade  radius  or  an  error  message  will  appear.  After  entering  the  desired 
values  press  Continue. 

Next,  JANRAD  98  will  call  the  Iteration  Method  window  as  shown  in  Figure  A.7. 
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Figure  A.7.  Iteration  Method  /  Analysis  Window. 


JANRAD  98  will  call  its  computational  routines  from  this  window.  By  choosing 
No  Iteration  and  Analyze,  JANRAD  98  will  run  the  parameters  selected  from  the 
previous  window.  The  Analyze  pushbutton  initiates  the  computational  routines.  All 
controls  on  the  GUI  will  be  disabled  except  the  Interrupt  pushbutton.  The  Analysis 
Status  Box  will  display  the  performance  routine  status,  clock,  iteration  number,  and 
iteration  parameter  value  as  JANRAD  trims  the  rotor  and  adjusts  the  collective  and  cyclic 
mathematically.  The  Interrupt  button  will  halt  the  routine  and  enable  the  Resume  control 
and  JANRAD  Options  menu  on  the  GUI.  This  will  allow  the  user  to  change  parameters, 
quit  or  return  to  beginning.  The  Resume  button  will  continue  with  the  performance 
routine  where  it  originally  interrupted.  It  is  worth  noting  that  the  Interrupt  button  will  not 
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always  respond  immediately.  However,  once  MATLAB  finishes  its  current  line 
evaluation,  the  calculation  will  pause. 

The  Status  Box  will  inform  the  user  when  calculations  are  complete.  The 
Performance  Output  window  will  be  displayed  automatically.  The  Performance  Output 
window  shown  in  Figure  A.  8  displays  the  performance  results.  These  results  can  be 
saved  and  the  screen  printed  from  this  window.  However,  it  is  recommended  to  print  the 
saved  input  and  output  files  through  the  next  window.  By  pressing  the  Options  »  push 
button,  the  saved  input  and  output  files  can  be  printed  simultaneously  and  in  a  more 
usable  format.  The  input/output  files  can  be  saved  after  activating  the  checkboxes, 
typing  a  file  name  and  pressing  the  Save  or  the  Options  »  push  buttons. 
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Figure  A.8.  Performance  Output  Window. 
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The  Options  window  in  Figure  A.9  provides  the  capability  to  print  the  latest  files, 
go  to  create  plots  screens,  and  eventually,  select  additional  analysis  routines.  At  this  time 
however,  the  Stability  and  Control  and  Rotor  Dynamics  routines  have  not  been 
completed.  If  selected,  you  will  be  reminded  of  this  limitation. 

From  here,  we  will  go  back  to  calculate  performance  parameters  by  varying 
airspeed.  This  is  done  by  pressing  the  Change  Iteration  Method  radio  button  and  the 
Continue  »  push  button.  This  will  go  back  to  Figure  A.7.  To  vary  airspeed,  press  the 
Airspeed  radio  button  and  ihsn  Analyze. 


Figure  A.9.  Options  Window. 
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Figure  A.  10  shows  the  Iteration  Parameters  window.  By  typing  80,  100  and  5  in 
the  appropriate  edit  boxes  and  selecting  Analyze,  the  performance  routine  will  calculate 
various  performance  results  with  respect  to  airspeed.  Later,  the  user  will  be  able  to  create 
plots  of  many  of  these  output  parameters.  Note:  the  Aspect  Ratio  edit  box  and  HIGE 
check  box  are  only  enabled  when  Altitude  Iteration  or  Wing  Span  Area  is  selected. 

Figure  All  shows  the  Create  Plots  screen  for  the  Airspeed  iteration  method. 
Any  or  all  of  the  plots  may  be  selected.  The  plots  are  created  and  minimized  as 
JANRAD  automatically  recalls  the  Options  window.  Figure  A.  8.  Each  iteration  method 
has  its  own  create  plots  screen.  Some  plots  require  additional  user  input  prior  to  creating 
them. 


Figure  A.  12  shows  an  example  airspeed  iteration  subplot.  These  plots  are 
primarily  used  to  examine  trade  off  studies  during  the  design  process. 


Figure  A.10.  Iterations  Parameter  Window. 
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The  M-file  create_pIots.m  contains  the  code  for  all  of  the  iteration  method  create 
plot  screens.  If  any  additional  plots  are'  desired,  changes  can  be  made  to  this  file. 
However,  the  plots  should  be  substituted  for  those  plots  already  existing,  and  the  existing 
code  should  be  commented  out,  not  removed.  Adding  plots  requires  changes  to  multiple 
files  for  proper  operation  and  should  not  normally  be  attempted.  Always  document 
changes  made  to  the  code  for  future  users. 

E.  HINTS  FOR  JANRAD  98  OPERATIONS 

The  following  paragraphs  list  some  recommendations  for  the  most  efficient  use 
of  JANRAD  98.  They  are  a  guide  based  on  observation,  experience  and  knowledge  of 
the  code.  Any  other  recommendations  should  be  addressed  to  the  Helicopter  Design 
Instructor  at  the  Naval  Postgraduate  School  for  implementation  into  the  next  version  of 
JANRAD  98. 

JANRAD  98  was  designed  for  robust  operations.  However,  because  this  is  the 
first  version  to  utilize  a  Graphical  User  Interface,  not  all  cases  of  user  inputs  have  been 
exercised.  If  the  program  appears  not  to  be  working  properly,  quit  JANRAD  using  the 
options  menu  available  on  all  but  the  first  window.  This  action  will  quit  JANRAD,  close 
all  MATLAB  figure  windows  and  clear  the  base  workspace.  Restart  JANRAD  by  typing 
janrad98  at  the  command  line. 
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Figure  A.  11.  Example  Iteration  Method  Create  Plot  Window 


Using  azimuth  sectors  greater  than  24  and  blade  elements  greater  than  20  will 
increase  computation  time.  The  accuracy  of  the  results  does  not  improve  a  significant 
amount  for  these  larger  values.  However,  if  the  3-D  plot  jfrom  the  No  Iteration  create  plot 
screen  is  desired,  72  azimuth  sectors  will  be  required  to  give  the  proper  resolution  to  the 
plot. 


Rotor  Power  Required  vs  Airspeed 


Figure  A.  12.  Example  of  Airspeed  Iteration  Output  Plot. 


For  more  accurate  results,  use  VR-12,  VR-15,  0012,  Scl094r8  or  Scl095r8 
airfoils  when  possible.  These  airfoils  include  Mach  number  inputs  for  CL  and  CD 
calculations.  The  HH-02  does  not  depend  on  Mach  number.  Note:  VR-15  and  Scl094r8 
airfoils  are  designed  for  use  at  the  tips  of  blades  and  not  for  use  along  the  entire  blade. 
Faulty  results  should  be  expected  when  using  them  for  that  purpose. 

Using  the  print  screen  buttons  on  the  performance  input  or  performance  output 
windows  will  take  up  to  several  minutes  on  older  processors.  Use  the  Send  to  Printer 
button  on  the  JANRAD  98  Options  page  for  faster  and  more  compact  printer  output. 
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APPENDIX  B.  VARIABLE  LIST.M 


This  script  M-file  contains  a  list  of  variables  used  in  JANRAD  98  version  5.0. 
The  list  is  broken  up  into  four  parts.  The  first  part  lists  variables  used  primarily  for 
computation  and  analysis.  Then  global  variables,  structure  variables  and  GUI  graphic 
handles  are  listed. 


%  This  File  lists  the  Variables  used  in  JANRAD  98  Version  5.0 

%  Computational  Vars. 

%  a  lift  curve  slope  of  rotor  system  airfoil 
%  Adisk  area  of  rotor  disk 

%  Afh  fuselage  equivalent  flat  plate  drag  area 
%  Afv  vertical  projected  area  (fuselage  area  under  disk) 

%  afoil  rotor  system  airfoil  type  (HH02AT112) 

%  alpha  angle  of  attack,  rotor  blade  radial  segment 
%  alphaT  rotor  tip  path  plane  angle 
%  b  number  of  rotor  blades 

%  B  tip  loss  parameter 

%  betao  rotor  coning  angle 

%  betat  geometric  angle,  rotor  blade  radial  segment 
%  bhoriz  span,  horizontal  tail 
%  bvert  span,  vertical  tail 

%  bwing  span,  wing 

%  cblade  chor^  rotor  blade 

%  CD  drag  coefficient,  rotor  blade  radial  segment 
%  CDohoriz  profile  drag  coefficient,  horizontal  tail 
%  CDovert  profile  drag  coefficient,  vertical  tail 
%  CDowing  profile  drag  coefficient,  wing 
%  CDhoriz  drag  coefficient,  horizontal  tail 
%  CDvert  drag  coefficient,  vertical  tail 
%  CDwing  drag  coefficient,  wing 
%  CH  rotor  H-force  coefficient 

%  CH_sig  CH/solidity 

%  CL  lift  coefficient,  rotor  blade  radial  segment 
%  CLhoriz  lift  coefficient,  horizontal  tail 
%  CLvert  lift  coefficient,  vertical  tail 
%  CLwing  lift  coefficient,  wing 

%  CON  b  Conventional  tail  rotor  #  of  blades 
%  CON  cdo  Conventional  tail  rotor  cdO 
%  CON_lt  Conventional  tail  rotor  moment  arm 
%  CON_omega  Conventional  tail  rotor  speed 
%  CON  R  conventional  tail  rotor  radius 
%  CQ  rotor  torque  coefficient 

%  CQ_sig  CQ/solidity 
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%  CT  rotor  thrust  coefficient 
%  CT_sig  CT/solidity 

%  dD  differential  drag,  rotor  blade  radial  segment 
%  ddD  differential  drag,  rotor  blade  tip 
%  ddDM  differential  drag  moment,  rotor  blade  tip 

%  ddM  differential  thrust  moment,  rotor  blade  tip 
%  ddT  differential  thrust,  rotor  blade  tip 
%  delM  change  in  total  thrust  moment 
%  Dftotal  resultant  of  fuselage  drag  and  aux  thrust 
%  Dfiise  total  drag  generated  by  non-rotor  bodies 
%  DL  disk  loading 

%  dM  differential  thrust  moment,  rotor  blade  radial  seg 
%  DMpsi  total  blade  drag  moment  at  specific  azimuth  angle 
%  dr  rotor  blade  radial  segment  width 

%  Drotor  rotor  system  drag 

%  dT  differential  thrust,  rotor  blade  radial  segment 
%  Dhoriz  drag,  horizontal  tail 

%  dthetadM  change  in  cyclic  pitch  with  change  in  thrast  moment 
%  Dvert  drag,  vertical  tail 
%  Dwing  drag,  wing 
%  e  effective  hinge  offset 
%  ewing  wing  efficiency  factor 
%  filename  name  of  input  file 
%  filenames  name  of  file  used  in  plot  routines 
%  FM  figure  of  merit 

%  grip  length  of  inner  non-aerodynamic  portion  of  blade 

%  GW  aircraft  gross  weight 
%  Hrotor  rotor  H-force 

%  lamdaT  forward  flight  induced  velocity  parameter 
%  Lftotal  total  lift  generated  by  non-rotor  bodies 
%  Lhoriz  Uft,  horizontal  tail 
%  Lvert  lift,  vertical  tail 
%  Lwing  lift,  wing 

%  Mlc  first  harmonic  (cosine)  thrust  moment  coefficient 
%  Mis  first  harmonic  (sine)  tluust  moment  coefficient 
%  Machtip  Mach  number  at  rotor  blade  tip 
%  mblade  mass  of  rotor  blade 

%  Mpsi  total  blade  thrust  moment  at  specific  azimuth  angle 
%  mu  advance  ratio 

%  naz  number  of  azimuth  sectors 

%  nbe  number  of  blade  elements 

%  omega  rotor  rotational  velocity 

%  PA  pressure  altitude 

%  phi  inflow  angle,  rotor  blade  radial  segment 

%  phitip  inflow  angle,  rotor  blade  tip 
%  Protor  power  required  by  rotor 
%  psi  azimuth  angle 

%  q  dynamic  pressme 

%  (^otor  rotor  torque 
%  r  radius,  rotor  blade  radial  segment 
%  R  rotor  blade  radius 

%  Rbar  Reff-e 

%  RbarT  rT*Rbar 


%  Reff  effective  rotor  blade  radius  (tip  loss) 

%  rho  ambient  air  density 

%  rT  location  of  resultant  thrust  vector 

%  solidity  solidity 
%  Shoriz  area,  horizontal  tail 
%  Svert  area,  vertical  tail 
%  Swing  area,  wing 
%  T  rotor  thrust 

%  tailrot  value  corresponding  to  type  of  tail  rotor 

%  Taux  auxiliary  thrust 

%  temp  ambient  air  temperature 

%  theta  cyclic  pitch 

%  thetalc  first  harmonic  (cosine)  of  cyclic  pitch 
%  thetals  first  harmonic  (sine)  of  cyclic  pitch 
%  thetao  collective  pitch  at  .7  r/R 
%  Tpsi  total  blade  thrust  at  specific  azimuth  angle 
%  tr  rotor  blade  taper  ratio 

%  twist  geometric  rotor  blade  twist 
%  Up  vertical  component  of  velocity 

%  Uptip  vertical  component  of  velocity  at  tip 
%  Ut  horizontal  component  of  velocity 

%  Uttip  horizontal  component  ofvelocity  at  tip 
%  vi  induced  velocity 

%  Vinf  forward  airspeed 

%  Vtip  tip  speed 

%  wblade  weight  of  rotor  blade 


%  Global  Vars. 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


AF_MAIN 

AF_TIP 

AR 

COUNT 


Main  airfoil  in  meshed  airfoil 
Tip  airfoil  in  meshed  airfoil 
Aspect  Ratio 

Counter  to  determine  where  Performance  Input  was 
called 


FIX_TPP_VAL 

INTER 

MAXUM 

MESH_VAL 

MESH_STA 

MINUM 

NAME 

NEW_AUX_VAL 


Selected  value  for  setting  TPP  to  defined  value 
Iteration  Interval 

Iteration  End  Value 

Selected  value  when  airfoil  mesh  option  chosen 
r/R  station  where  mesh  occurs 
Iteration  Start  Value 
Input  .mat  file  name 

Value  of  auxiliary  thrust 


NEW_r  Vector  of  user  defined  blade  elements 


NEW_TPP 

NL_TWIST 

NL_TWIST_VAL 

OUT_COUNT 

PICK 

PLOT_VALS 

RADSPC_VAL 

REGIME 


Value  (rads)  TPP  is  set  to  for  compound  helo 
User  defined  twist  vector 
Selected  value  for  non-linear  twist 
Used  to  enable  selection  of  plot  routines 
Iteration  Method  Choice  (1-9) 

Values  chosen  for  no  iteration  plot 
Selected  value  for  non-even  blade  elements 
Include  HIGE  Calculations  Choice  (l=yes,  0=no) 
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%  Structure  Vars. 


%  S_MATR_VEC  MatrixA^ector  structure 

%  S_PERF_INPUT  Perf.m  input  structure 

%  S_USER_INPUT  User  input  structure 
%  S_FTr_TR_INPUT  Fan-In-Tail  input  structure 

%  S_NOTAR_TR_INPUT  NOTAR  input  structure 


% 

Graphics  Handle  Vars. 

% 

H  AF  MESH 

Airfoil  Mesh  List  Box 

% 

H  AL 

Altitude  Iteration  Radio  Button 

% 

H  AL  IT  P# 

Altitude  Iteration  Plots 

% 

H  ANAL 

Analysis  Figure  Window 

% 

H  AS 

Airspeed  Iteration  Radio  Button 

% 

H  AS  IT  P# 

Airspeed  Iteration  Plots 

% 

H  ASPECT 

Aspect  Ratio  Static  Text  Box 

% 

H  ASPECT_EDrr  Aspect  Ratio  Edit  Text  Box 

% 

H  BLD  EL 

Blade  Element  Menu  Handle 

% 

H  BK 

Iteration  Method  «  Back  Push  Button 

% 

H  BT 

Blade  Twist  Iteration  Radio  Button 

% 

H  BT  IT  P# 

Blade  Twist  Iteration  Plots 

% 

H  BTR 

Blade  Taper  Ratio  Iteration  Radio  Button 

% 

H_BTR_rr_P# 

Blade  Taper  Ratio  Iteration  Plots 

% 

Hcheckl 

Save  Input  Data  Check  box 

% 

H_check2 

Save  Output  Data  Check  box 

% 

H  checks 

Save  Matrix  &  Vector  Data  Check  box 

% 

H  CED 

Change  Input  Data  Radio  Button 

% 

H  CIM 

Change  Iteration  Method  Radio  Button 

% 

H  CNF 

Create  New  Radio  Button 

%  H_datam 

Save  Input  Data  Edit  Box 

% 

H  dataout 

Save  OuQ)ut  Data  Edit  Box 

% 

H  DISK 

Horiz.  Tail  Under  Main  Rotor  Disk  Check  Box 

% 

H  EJANRAD 

Exit  JANRAD  Radio  Button 

% 

H  EREF 

Edit/Run  Existing  File  Radio  Button 

% 

H  FIX  TPP 

Set  TPP  Check  Box 

% 

H  GO 

Analyze  Push  Button 

% 

H  GW 

Gross  Weight  Iteration  Radio  Button 

% 

H  GW  IT  P# 

Gross  Weight  Iteration  Plots 

% 

H_HIGE 

Iteration  Parameters  HIGE  Check  box 

% 

H  inputfile 

Input  File  Static  Text  box 

% 

H  IP 

Iteration  Parameters  figure  window 

% 

H  IT  BOX 

Iteration  Parameters  Static  Text  Box 

% 

H  IT  METH 

Iteration  Method  figure  window 

% 

H  JAN 

JANRAD  98  Figure  window 

% 

H  LB 

Input  File  List  Box 

% 

H  MEN 

JANRAD  98  Options  Menu  handle 

% 

H  MESH 

Mesh  Parameters  figure  window 

% 

H  NI 

No  Iteration  Radio  Button 

% 

H  NO  IT  P# 

No  Iteration  Plots 

% 

H  NL  TWIST 

Non-linear  twist  check  box 
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%  h_opt  Performance  Output  JANRAD  Options  Menu 

%  H  OPnONS  Options  Figure  Window 

%  H_outputfile  Output  File  Static  Text  box 
%  H_P  Performace  Radio  Button 

%  H_POP  Airfoil  List  Box 

%  H_PERF_IN  Performance  Input  Figure  Window 
%  H_PERF_OlJT  Performance  Output  Figure  Window 


% 

H_PRDA 

Perform  Rotor  Dynamics  Radio  Button 

%  H_prmtin  Print  Input  File  Check  Box 

% 

H_printout 

Print  Output  File  Check  Box 

% 

H_printvec 

Print  Matrix  &  Vector  File  Check  Box 

% 

H  PSCA 

Perform  Stability  and  Control  Radio  Button 

% 

H  RBR  IT  P# 

Rotor  Radius  Iteration  plots 

% 

H  RBS  IT  P# 

Rotor  Speed  Iteration  plots 

% 

H  RD 

Rotor  Dynamics  Radio  Button 

% 

H  RES 

Resume  Push  Button 

% 

H  RTB 

Return  to  Beginning  Radio  Button 

% 

H  RUPT 

Interrapt  Push  Button 

% 

H  SAC 

Stability  and  Control  Radio  Button 

% 

H  SOT 

Start  of  Taper  Iteration  Radio  Button 

% 

H  SOT  IT  P# 

Start  of  Taper  Iteration  Plots 

% 

H  STATUS 

Top  Analysis  Status  Static  Text  Box 

% 

H  STATUSl 

Middle  Analysis  Status  Static  Text  Box  (Elapsed  Time) 

% 

H  STATUS2 

Middle  Analysis  Status  Static  Text  Box  (iteration  #) 

% 

H_STATUS3 

Bottom  Analysis  Status  Static  Text  Box  (param  value) 

% 

Hvecdata 

Save  Matrix  &  Vector  Data  Edit  Box 

% 

H  vecfile 

Vector  File  Static  Text  box 

% 

H  WORK 

Working  Directory  Edit  Box 

% 

H  WSA 

Wing  Span  Area  Iteration  Radio  Button 

% 

H  WSA  IT  P# 

Wing  Span  Area  Iteration  Plots 

57 


58 


APPENDIX  C.  VR-12ATI-15/SC1094R8/SC1095R8  CL  AND  CD  DATA 


CL  ys  aipte  Dal#r  VR-15  Airfoii,  Macli  0.306 


Figure  C.6.  VR-15  Cl  Curve 
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CED 
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CD  vs  alpte  Data  for  SCI  095RB  Airfoil.  Macii  1 .0 


Figure  C.16.  Scl095R8  Cd  Curve 
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Alrfoact  (Lb/in)  :  Airload  (Lb/in) 


APPENDIX  D.  AIRLOAD  PLOTS 


The  following  four  Airload  Plots  are  with  “fish  hook”  twist  model  included. 


Psi=0deg. 


Blade  Position  rlR 


Figure  D.l.  Linear  Twist  vs.  Actual  UH-60A  Twist,  HOGE,  T'=  C 


Airload  (Lb/In)  Airload  (Lb/in) 


Airload  (Lb/in)  Airload  (LbAn) 


Figure  D.3.  UH-60A  Radial  Airload  Distribution,  115  Knots,  0, 90" 
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Blade  Position 


Figure  D.4.  UH-60A  Radial  Airload  Distribution,  115  Knots,  W=  180, 270 


Airload  (Lb/in)  Airload  (Lb/In) 
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Airload  (Lb/In)  Airload  (Lb/in) 


Psi=180cl§g 


Figure  D.6.  UH-60A  Radial  Airload  Distribution,  HOGE,  180, 270“ 
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Airload  (Lb/ln)  Airload  (Lb/in) 


Airload  C Lb/in 


Figure  D.8.  UH-60A  Radial  Airload  Distribution,  65  Knots,  'P=  180, 270' 


Figure  D.9.  UH-60A  Radial  Airload  Distribution,  115  Knots,  ¥=  0, 90" 


Airload  (Lb/ln)  Airload  (Lb/in) 


APPENDIX  E.  POWER  REQUIRED  CURVES 


Figure  E.l.  UH-60A  Power  Required  vs  Airspeed,  Flight  #84 
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Figure  E.2.  UH-60A  Power  Required  vs  Airspeed,  Flight  #85 


180 
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Main  Rotor  Power  (HP) 


Figure  E.3.  UH-60A  Power  Required  vs  Airspeed,  Flight  #88 
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True  Airspeed  (KTS) 


Figure  E.4.  UH-60A  Power  Required  vs  Airspeed,  Flight  #89 


uf/<iT4srut|i  ,  uifqTisoitti 


APPENDIX  F.  LIFT  AND  THRUST  COMPARISON  PLOTS 


^ffoad'i©  fedial  Blade  Stetiors  ^115  Kts 


Figure  F.l.  IJH-60A  Radial  Thrust  Distribution  at  115  Kts 
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•  LaLMn  Uftmn 


Nctfin^  Fm&  vs  i^al  ^de  1 15  Kis 


Figure  F.2.  UH-60A  Radial  Lift  Distribution  at  115  Kts 
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APPENDIX  G.  JANRAD98.M 


This  file  launches  JANRAD  98  and  its  Graphical  User  Interface.  It  is  called  by 
t5T)ing  janrad98  at  the  MATLAB  command  line. 


function  janrad98() 

% 

%  JANRAD98.M 

%  Joint  Army  Navy  Rotorcraft  Analysis  and  Design 
%  (JANRAD) 

%  Version  5.0 

%  June  1998 

%  Version  1.0  Designers 

%  MAJ  Bob  Nicholson 

%  MAJ  Walter  Wirth 

%  Version  2.0  Update  Designer 

%  LT  Dale  Feddersen 

%  Version  3.0  update  Designer 

%  LT  Dave  Eccles 

%  Version  3.1  update  Designer 

%  LT  Dan  Hiatt 

%  Version  4.0  iqidate  Designer 

%  LCDR.  Chris  F.  Lapacik 

%  Version  5.0  update  Designer 
%  LCDR.  William  L.  Hucke 

%  Version  5.0  expanded  the  (^abilities  of  the  Graphical  User  Interface  as  well  as  adding  new  features  to 
JANRAD  98.  These  include,  user  defined  blade  elements,  airfoil  meshing,  non-linear  blade  twist, 
compound  helicopter,  tail  rotor  parameters,  and  output  plotroutines  for  each  iteration  method.  Mach 
number  dependent  VR12  and  VR15airfoil  data  was  also  added.  Version  5.0  also  added  the  basic  Stabihty 
and  Control  GUI  architecture. 

%  Version  4.0  added  the  Graphical  User  Interface.  The  GUI  allows  the  user  to  create,  run,  save  and  print 
files  with  less  effort  and  greater  speed.  The  basic  performance  calculation  routines  remain  essentially  tiie 
same  as  version  3.1.  However,  the  input,  output  and  file  structure  were  modified  extensively.  Sikorsky  H- 
60  airfoil  data  was  also  added. 
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%  Version  3.1  adds  time  varying  tip  loss  and  the  corrected  dynamics  module.  The  dynamics  module 
provides  Southwell  plots  and  rotor  blade  response  in  flap  and  lag  motion.  Also  included  is  rotor  flapping 
stability  determination  by  Floquet  analysis. 

%  Version  2.0  corrected  minor  bugs  in  ver  1.0  and  incorporated 
%  Wheatley's  Eqn.  Additionally  the  user  may  now  input  a 
%  tapered  rotor  blade.  Finally  a  menu  was  created  for 
%  ease  of  performing  various  iterations  and  then  saving  that 
%  calculated  data  for  later  use/manipulation. 

%  This  program  is  an  interactive  preliminary  design  tool 
%  developed  to  aid  the  design  student  in  determination  of 
%  initial  rotorcraft  configurations  and  in  the  calculation 
%  of  performance,  stabihty  and  control,  and  other  parameters. 

%  The  program  will  work  for  conventional  or  compoimd  rotorcraft. 

%  It  will  provide  accurate  data  for  airspeeds  less  than  10 
%  knots  and  greater  than  or  equal  to  50  knots. 


loadjanrad98 

global  H_JAN  H_EREF  H_CNF 

H_JAN  =  figureCUnits', 'normalized', ... 

'Color', [0.8  0.8  0.8], ... 

'Colormap',mat0, ... 

'MemiBar','none', ... 

'Name','JANRAD  98', ... 

'NumberTitle','ofF, ... 

'PointerShapeCData',matl, ... 

'Position',[-0.003125  0.0625  0.954688  0.8625], ... 
'Tag',Tigl'); 

b  =  uicontrol('Parent',H_JAN, ... 

Units'.'normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
TontSize',16, ... 

'FontWeight','bold', ... 

'Position',[0.0604396  0.757143  0.434066  0.145714], ... 
'String', 'Welcome  to  JANRAD  98', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
TontSize',10, ... 

'FontWeight','bold', ... 

'Position',[0.0758597  0.617284  0.403226  0.0925926], ... 
'String', 'Joint  Army/Navy  Rotor  Analysis  and  Design', ... 
'Style','text', ... 

'Tag','StaticText7'); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','nonnalized', ... 

BackgroundColor',[0.752941  0.752941  0.752941], ... 
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Tosition', [0.0593654  0.392157  0.437052  0.0648567], 
'String','Department  of  Aeronautics  &  Astronautics', .. 
'FontSize',10, ... 

'FontWeight’,'bold’, ... 

'Style’,'text', ... 

'Tag',’StaticText6'); 
b  =  uicontrol('Parent’,H_JAN, ... 

'Units','normali2ed', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
’Position’,[0.0766129  0.333333  0.403226  0.0617284], 
'String', 'Naval  Postgraduate  School', ... 

'FontSize',10, ... 

'FontWeight'.'bold', ... 

'Style','text', ... 

'Tag','StaticText5'); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0766129  0.271605  0.403226  0.0617284], 
'String','Monterey,CA  93940', ... 

'FontSize',10, ... 

'FontWeight','bold', ... 

'Style', 'text', ... 

'Tag','StaticText4'); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.0766129  0.17284  0.403226  0.0771605], .. 
'String','March25, 1998',... 

'FontSize',10, ... 

TontWei^t','bold', ... 

'Style','text', ... 

'Tag','StaticText3'); 

H_EREF  =  uicontrol('Parent',H_JAN, ... 
'Units','nornialized', ... 

'Callback', 'janrad98_fcn  eref , ... 
'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Tosition',[0.587992  0.655172  0.275362  0.103448], ... 
'String','Edit/Run  Existing  File', ... 

'Style','radiobutton', ... 

'Tag','Radiobuttonr, ... 

'Value',  1); 

H_CNF  =  uicontrol(Parent',H_JAN, ... 

'Units','nonnalized', ... 

'Callback', 'janrad98_fcn  cnf, ... 
'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Tosition',[0.587992  0.514368  0.275362  0.106322], ... 
’String','Create  New  File', ... 

'Style','radiobutton', ... 

Tag','Radiobutton2'); 
b  =  uicontrol(’Parent',H_JAN, ... 

'Units','nonnalized', ... 

'Callback','janrad98_fcn  stop', ... 
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■FontSize'.n, ... 

'FontWeight'.'bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.587992  0.295977  0.275362  0.112069], ... 
'String', 'Quit  JANRAD  98', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','nonnalized', ... 

'Callback','janrad98_fcn  cont', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Posilion',[0.590062  0.149425  0.273292  0.112069], ... 
'String','Conlinue  »', ... 

'Tag',’Pushbutton2'); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 
'FontSize',12, ... 

'FontWeight','deini', ... 

'Position', [0.591097  0.793103  0.269151  0.091954], ... 
'String','Select  Option  and  Continue', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',H_JAN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.561077  0.445402  0.329193  0.482759], ... 
'Style','frame', ... 

'Tag',Tramer); 

b  =  uicontrol('Parent',H_JAN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0342742  0.570988  0.479839  0.367284], ... 
'Style’,'frame', ... 

Tag','Fianie2'); 

b  =  uicontrol('Parent',H_JAN, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.0348004  0.149321  0.479017  0.3454], ... 
'Style', 'frame', ... 

'Tag',Trame3'); 

assignin('base','H_EREF',H_EREF); 

assignin('base','H_CNF',H_CNF); 


94 


APPENDIX  H.  JANRAD98_FCN.M 


Switchyard  Callback  function  called  by  the  janrad98.m  GUI  function. 


function  janrad_fcn(Action) 

%  Switchyard  Callback  function  for  janrad98.m 
%  JAlvIRAD  98  VERSION  5.0 

global  H_EREF  H_CNF  HJAN  NAME  COUNT 

condl=get(H_EREF,'Value'); 
cond2=get(H_CNF, 'Value'); 

COUNT=0; 

ifnargin, 
switch  Action 
case  'cont', 
if  condl=l 
analysis 
close  (H  JAN) 
else, 

NAME=G; 
performanceinput 
close  (HJAN) 
end 

case  'stop* 
quit _gui 
case  'eref 

set(H_EREF, '  Value',  1) 
set(H_CNF,'Value',0) 
case  'cnf 

set(H_EREF,'Value’,0) 

set(H_CNF,'Value',l) 

end 

end 
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APPENDIX  L  ANALYSIS.M 


This  file  creates  the  GUI  to  select  a' JANRAD  98  data  file  and  select  the  analysis 
method.  It  is  called  in  the  janrad98_fcn.m  Switchyard  Callback  fiinction. 


function  analysis() 

%  GUI  figure  window  to  Select  Type  Analysis 
%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  analysis 

global  H_P  H_SAC  H_RD  H_ANAL  H_LB  NAME 

H_ANAL  =  figureCUnits', 'normalized', ... 

’Color',[0.8  0.8  0.8], ... 

'Colormap',matO, ... 

'Name','Analysis', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

’Position',[-0.003125  0.0625  0.954688  0.8625], ... 

'Tag',Tig2'); 

b  =  uimenuCParent',H_ANAL, ... 

'Label','JANRAD  Options', ... 

'Tag','uimenur); 
c  =  uimenuCParent',b, ... 

'CaUback','analysis_fcn  quit', ... 

'Label','Quit  JANRAD',... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenuCParent',b, ... 

'Callback','analysis_fcn  return', .. . 

’Label'.'Retum  to  Begining', ... 

Tag'j'JANRAD  OptionsSubuimenul'); 
c  =  uimenuCParent',b, ... 

'Callback','analysis_fcn  delta_mput',... 

'Laber,'Change  Input  Parameters', ... 

Tag','Subuimenur); 
c  =  uimenuCParent',b, ... 

'CallbackVanalysisfcn  about',... 

'Label','About  Jamad  98 ...', ... 

'Separator','on',... 
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'Tag'/Subuimenul'); 
b  =  iiicontrol('Parent',H_ANAL, ... 

'Units', 'normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'FontWeight','bold', ... 

'Position',[0. 106033  0.896175  0.332724  0.0546448], ... 

'String', Type  Path  to  Working  Directory', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H_WORK.  =  uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position', [0. 104205  0.822404  0.330896  0.0546448], ... 

'CreateFcn',",... 

'String',pwd,... 

'HorizontalAlignment','left',. . . 

'Style','edit', ... 

'Callback', 'cd(get(H_WORK,"String"));list=dir("*.mal");str={list.name};set(H_LB,"str",str)',... 
'Tag','EditTextr); 
b  =  uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0. 102377  0.734973  0.340037  0.0628415], ... 

'String','Select  Data  File', ... 

'Style','text', ... 

'Tag’,'StaticText3'); 

H_LB  =  uicontrolCParent',H_ANAL, ... 

'Units','normalized', ... 

'BackgroundColor', [1  1  1], ... 

'Position',[0. 101786  0.355742  0.342857  0.369748], ... 

'String',", ... 

'CreateFcn','list=dir("*.niat");str={list.name};set(gcbo,"str",str)', ... 

'Style','listbox', ... 

'Callback','globalNAME;Value=get(gcbo,"Value");String=get(gcbo,"Stiing");NAME=Strmg{Value};', . 
'Tag','Listboxl', ... 

'Value',  1); 

b  =  uicontrol('Parent',H_ANAL, ... 

'Units','noTmalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position', [0.5982 14  0.815126  0.285714  0.0644258], ... 

'String','Select  Type  Analysis', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

H_P  =  uicontrolCParent',H_ANAL, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Callback','analysis_fcn  h_p', ... 

'FontSize',12, ... 

'Position',[0.598214  0.672269  0.285714  0.092437], ... 
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'String', 'Performance', ... 

'Slyle','radiobutton', ... 

'Tag','Radiobuttonl', ... 

'Value',  1); 

H_SAC  =  uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Callback','analysis_fcn  h  sac', ... 

'FontSize',12, ... 

'Position',[0.598214  0.540616  0.285714  0.092437], ... 
'String','Stability  And  Control', ... 

'StyIe','radiobutton', ... 

'Tag','Radiobuttonl'); 

H_RD  =  uicontrol('Parent',H_ANAL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Callback','analysis_fcn  h_rd', ... 

'FontSize',12, ... 

'Position',[0.598214  0.408964  0.285714  0.0952381], ... 
'String','Rotor  Dynamics', ... 

'Style','radiobutton', ... 

'Tag','Radiobuttonl'); 
b  =  uicontrol('Parent',H_ANAL, ... 

Units', 'normalized', ... 

'Callback','analysis_fcn  back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.0982143  0.176  0.210714  0.096], ... 

'StTing','«  Back', ... 

'Tag','Pushbuttonl'); 
b  =  uicontrol('Parent',H_ANAL, ... 

Units','noimalized', ... 

'Callback','analysis_fcn  cnx',... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.391071  0.176  0.208929  0.096], ... 
'String','Cmcer, ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_ANAL, ... 

'Units','normalized', ... 

'Callback','global  COUNT;COUNT=0;analysis_fcn  cont', ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.678571  0.178667  0.208929  0.096], ... 
'String','Continue  »', ... 

'Tag','Pushbuttonl'); 
b  =  uicontrol(Tarent',H_ANAL, ... 

'Units','noimalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.557143  0.352941  0.355357  0.557423], ... 
'Style','&ame', ... 

'Tag','Framel'); 
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assignin('base','H_P',H_P); 

assignuiCbase','H_SAC',H_SAC); 

assignin(’base','H_RD',H_RD); 

assigmii('base',’H_WORK',H_WORK); 

assignin('base','H_LB',H_LB) ; 

assignin('callerVNAME',NAME) 


APPENDIX!.  ANALYSIS  FCN.M 


Switchyard  Callback  function  for  the  analysis,  m  GUI  function. 


function  analysis_fcn(  Action) 

%  Switchyard  Callback  function  for  analysis.m 
%  JANRAD  98  VERSION  5.0 

global  H_P  H_SAC  H_RD  H_ANAL 

condl=get(H_P,'Value'); 

cond2=get(H_SAC,'Value'); 

cond3=get(H_RD,'Value'); 

ifnargin, 
switch  Action 
case'h_p' 
set(H_P,’Value',l) 
set(H_SAC,'Value',0) 
set(H_RD,'Value’,0) 
case  'h_sac' 
set(H_P,’Value’,0) 
set(H_S  AC,' Value’,!) 
set(H_RD,’Value’,0), 
case  'hrd' 
set(H_P,’Value’,0) 
set(H_SAC,'Value',0) 
set(H_RD,'Value',l) 
case  'cont' 
if  condl=l 
perfonnanceinPut 
close  (H_ANAL) 
elseif  cond2==l 
stability_and_control 
elseif  cond3==l 
rotor_dynaniics 
else, 

errorCSomeThing  is  Wrong  in  Analysis  Function') 
end 

case  'cnx' 
analysis 
close  (gcf) 
case  "back' 
janrad98 
close  (H_ANAL) 
case  'return' 
janrad98 
close  all 
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case  'quit' 
quit_gui 

case  'delta_input' 
perfonnance_mput 
close  (H_ANAL) 
case  'about' 
about Janrad 
end 
end 


APPENDIX  K.  PERFORMANCE  INPUT.M 


This  file  creates  the  GUI  that  displays  the  36  input  parameters  as  loaded  from  a 
previously  saved  file  or  created  new  by  user.  It  is  called  in  the  analysis  fcn.m 
Switchyard  Callback  function. 


function  perf6rmance_mput0 

%  GUI  window  to  display  and/or  edit  input  values. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  performance_input 

global  COUNT  NAME  H_PERF_rN  S_USER_INPUT  S_PERF_INPUT  H_MESH  H_POP... 
MESH_STA  MESH_VAL  AF_MAIN  AF_TIP  H_RADSPC  RADSPC_VAL  H_TW  H_NL_TWIST  ... 
NL_TWIST  NL_TWIST_VAL 

switch  COUNT 
caseO 

if  ~isemply(NAME) 
evalfPload  ’.NAME]) 
unstructure  1 
else 

load  create_new 
structure 
end 
case  1 

unstracturel 

end 


H  PERF  IN  =  figureCUnits', 'normalized', ... 

'Color', [0.8  0.8  0.8], ... 

'CreateFcn','global  MESH_VAL,  MESH_VAL=0;;',... 
'Colormap',matO, ... 

'Name','Performance  Input  Parameters', ... 
'NumberTitle','off', ... 

TointerShapeCData',matl, ... 

Tosition',[-0.003125  0.0625  0.954688  0.8625], ... 
Tag','Fig2'); 
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h  opt  =  uimenu('Parent',H_PERF_IN, ... 

'Label', 'JANRAD  Options', ... 

'Tag’.'uimenul'); 
c  =  uimenu('Parent',h_opt, ... 

'Callback','perfonnance_mput_fcn  quit', ... 

'Label','Quit  JANRAD', ... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  iumenu('Parent',h_opt, ... 

'Callback','performance_input_fcn  return',... 

'Label', 'Return  to  Begining', ... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',h_opt, ... 

'Callback', 'peifonnance_input_fcn  delta_input',. . . 

'Laber,'Ch^ge  Input  Parameters', ... 

'Enable','off,... 

'Tag','Subuimenur); 
c  =  uimenuCParent',h_opt, ... 

'Callback','petformance_mput_fcn  about',... 

'Label',' About  Janrad  98 ...', ... 

'Separator', 'on',... 

'Tag','Subuimenur); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.0212766  0.92029  0.175123  0.0483092], ... 

'String', 'Pressure  Altitude  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

Units','normalized', ... 

'BackgroundColor', [1  1 1], ... 

'Position',[0.217676  0.922705  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',PA,... 

'Callback', 'PA=get(gcbo,"String");S_USER_INPUT.PA=str2num(P  A);',... 
'Tag',EditTextl'); 

d  =  uicontrol('Parent',H_PERF_rN, ... 

'Units','noimali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0212766  0.855072  0.175123  0.0483092], ... 
'Strmg',Temperature  (degF)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position', [0.2 17676  0.857488  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',temp,... 

'Callback','temp=get(gcbo,"String'’);S_USER_INPUT.temp=str2num(temp) 

'Tag','EditTextr); 

d  =  uicontrol('Parent',H_PERF_IN, ... 
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Units’.'normalized’, ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.0212766  0.792271  0.175123  0.0483092], ... 

'String','Airspeed  (kts)', ... 

’Style','text', ... 

'Tag','Sta1icText2’); 
d  =  mcontrol('Parent',H_PERF_IN, ... 

Units'.'normalized', ... 

'BackgroundColor', [1  1 1], ... 

Tosition',[0.217676  0.792271  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',  Vinf,... 

'CaUback','Vinf=get(gcbo,"Strmg");S_USER_INPUT.Vinf=str2num(Vinf);',... 

Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.0212766  0.727053  0.175123  0.0483092], ... 

'String','Gross  Wt.  (lbs.)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Umts','normalized', ... 

'BackgroundColor', [1  1 1], ... 

'Position',[0.217676  0.729469  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String', GW,... 

'CaUback','GW=get(gcbo,"String");S_USER_lNPUT.GW=str2num(GW);',... 

Tag','EditTextl'); 

d  =  uicontrolCParent',H_PERF_IN, ... 

Units'.'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.02 12766  0.661836  0.175123  0.0483092], ... 

'String','Rotor  Vel.  (rad/sec)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nomialized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.2 17676  0.664251  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',omega,... 

'Callback','omega=get(gcbo,"String");S_USER_lNPUT.omega=str2num(omega);',... 

'Tag','EditTextl'); 

d  =  uicontrol(Tarent',H_PERF_lN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0.0212766  0.596618  0.173486  0.0483092], ... 

'String','No.  Azmith  Sectors', ... 

'Style','text', ... 

Tag','StaticText2'); 
d  =  uicontrol(Tarent',H_PERF_lN, ... 

'Units','nonnalized', ... 
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'BackgroundColor',[l  1 1], ... 

Position', [0.217676  0.599034  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String’,naz,... 

'Callback','naz=get(gcbo,"Strmg");S_USER_INPUT.naz=sti2num(naz);',... 

'Tag','EditTextr); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Umts','nonnalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

’Position',[0.0212766  0.533816  0.175123  0.0483092], ... 

'String','Coll  Pitch  @  .7  r/R', ... 

'Style','text', ... 

'Tag’,'Sta1icText2'); 
d  =  uicontrol(’Parent',H_PERF_IN, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

Position',[0.217676  0.536232  0.0981997  0.0483092], ... 

'Style',’edit', ... 

'String',thetao,... 

'Callback', 'thetao=get(gcbo,"String");S_USER_INPUT.thetao=str2num(thetao);’,... 
'Tag',p;ditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Position',[0.0212766  0.468599  0.173486  0.0483092], ... 

'Strmg','Wing  Area  (ft''2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_lN, ... 

'Umts','nonnalized’, ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.217676  0.471014  0.0981997  0.0483092], ... 

'Style','edit', ... 

'Strmg',Swing,... 

'Callback','Swing=get(gcbo,"String");S_USER_INPUT.Swing=str2num(Swmg);',... 

'Tag','EditTextr); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Position',[0.02 12766  0.403382  0. 173486  0.0483092], ... 

'Strmg','Wing  Span  (ft)’, ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol(Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

Position',[0.217676  0.405797  0.0981997  0.0483092], ... 

'Style’,'edit', ... 

'Strmg’,b\ving,... 

'Callback’,'bwing=get(gcbo,"String");S_USER_INPUT.bwing=str2num(bwing);',... 

Tag',EditTextr); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

Units', 'normalized', ... 
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'BackgroundColor', [0.752941  0.752941  0.752941], ... 

■Position’, [0.0212766  0.34058  0.173486  0.0483092], ... 

'String’,'Expected  Wing  CL', ... 

'Style','text', ... 

'TagVStaticText2’); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1  1], ... 

'Position', [0.217676  0.342995  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String’,CLwing,... 

'CaUback','CLwing=get(gcbo,’'String");S_USER_INPUT.CLwing=str2num(CLwing);',... 

’Tag',’EditTextl’); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position’,[0.0212766  0.275362  0. 173486  0.0483092], ... 

'String’,'Wing  CDo’, ... 

'Style','text', ... 

'Tag',’StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position’,[0.217676  0.277778  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',CDowing,... 

'Callback','CDowing=get(gcbo,"String");S_USER_INPUT.CDowing=str2num(CDowing);',... 

’Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN . 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

’Position’,[0.02 12766  0.210145  0.173486  0.0483092], ... 

'String’.'Blade  Twist  (deg)', ... 

'Slyle',’text', ... 

'Tag','StaticText2’); 

H_TW  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor', [1  1  1], ... 

'Position',[0.217676  0.21256  0.0981997  0.0483092], ... 

’Style',’edit’, ... 

'String',twist,... 

'Callback',’twist=get(gcbo,"String");S_USER_INPlJT.twist=str2num(twist);',... 

'Tag’,'EditTextl’); 

H_NL_TWIST  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nomialized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position', [0.0562948  0.15083  0.258956  0.0452489], ... 

'String','Select  for  non-linear  Blade  Twist', ... 

'Value',0, ... 

■Callback’,['global  NL_TWIST  ;NL_TWIST=D;’,... 

'if  get(gcbo,  "Value")==l,'... 

'set(H_TW,"Enable","oflF'),',... 

'else,',... 
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'set(H_TW,"Enable","on"),',... 

'end, 

'Style', 'checkbox', ... 

'Tag','Checkbox3'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0.358429  0.922705  0.173486  0.0483092], ... 

'String', "Blade  Airfoil  Type', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H  POP  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.549918  0.922705  0.125  0.0483092], ... 
'String','0012|HH-02|VR-12|VR-15|SC1094r8|SC1095r81Aiifoil_Mesh', ... 

'Style','popupmenu', ... 

Tag',TopupMenur, ... 

'Value',afoil, ... 

'Ca]lback',['afoil=get(gcbo,"Value");S_USER_INPUT.afoil=afoil;globalMESH_STAMESH_VAL,',.. 
'if  get(gcbo,  "Value")==7,',... 

'set(H_MESH,"Enable","on"),  MESH_VAL=1;',... 

'else,',... 

'set(H_MESH,"Enable","off'),',... 

'end,']); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.359263  0.855204  0.175026  0.0467572], ... 

'String', 'Begin  mesh  at  (r/R)', ... 

'Style',text', ... 

'Tag','StaticText2'); 

H_MESH  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Position',[0.548618  0.855204  0.09826  0.0482655], ... 

'Style','edit', ... 

'String',MESH_STA,... 

Enable','off,... 

'Callback',  [... 

'MESH^STA=get(gcbo,"String");',... 

'perfomiance_input_fcn  mesh'],... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nomialized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.35824  0.791855  0.175026  0.0467572], ... 

'String','No.  Blades', ... 

'Slyle','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 
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■Position',[0.549918  0.792271  0.0981997  0.0483092], ... 

'Style’,'edit', ... 

’String'.b,... 

’(Mback^^)=get(gcbo,''St^mg’');S_USER_I^lPUT.b=st^2num(b);^... 

'Tag’,'EditTextr); 

d  =  uicontrol('Parent',H_PERF_lN, ... 

Xrnits',’nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

’Position',[0.358429  0.731884  0.175123  0.0483092], ... 

'String','Blade  Radius  (ft.)', ... 

'Style','text', ... 

’Tag’,'StaticText2'); 
d  =  uicontrol('Parent',H_PERF_lN, ... 

'Units','normalized’, ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.549918  0.729469  0.0981997  0.0483092], ... 

'Style’,'edit', ... 

'String',!!,... 

'Callback','R=get(gcbo,"String");S_USER_INPUT.R=str2nuin(R);',... 

Tag',EditTextr); 

d  =  uicontrol('Parent',H_PERF_lN, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358429  0.664251  0.175123  0.0483092], ... 

'String','ffinge  Offset  (ft.)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  iucontrol(Tarent',H_PERF_IN, ... 

'Uiiits','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.549918  0.664251  0.0981997  0.0483092], ... 

'Slyle'.'edit',... 

'String',e,... 

'Callback','e=get(gcbo,"String");S_USER_lNPUT.e=str2num(e);',... 

'Tag','EditTextl'); 

d  =  uicontrol(Tarent',H_PERF_lN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358429  0.601449  0.175123  0.0483092], ... 

'String','Non-Aero  Part  (ft.)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol(Tarent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.549918  0.599034  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',grip,... 

'Callback','grip=get(gcbo,"String");S_USER_lNPUT.grip=str2num(grip);',... 

'Tag','EditTextr); 

d  =  uicontrol(Tarent',H_PERF_IN, ... 

'Umts','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
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'Position', [0.358429  0.538647  0.175123  0.0483092], ... 

'Strmg','Blade  Root  Chd  (ft.)', ... 

'Style','text', ... 

'Tag'.'StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.549918  0.536232  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String’,rchord,... 

'Callback','rchord=get(gcbo,"String");S_USER_INPUT.rchord=str2num(rchord) 

'Tag',EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358429  0.471014  0.173486  0.0483092], ... 

'String', 'Blade  Taper  Ratio', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.549918  0.471014  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',tr,... 

'Callback','ti=get(gcbo,"Strmg");S_USER_INPUT.ti=str2nuin(tr);',... 

'Tag'.EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358429  0.405797  0.175123  0.0483092], ... 

'String',Taper  Starts  @  (r/R)', ... 

'Style'.'text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.549918  0.405797  0.0981997  0.0483092], ... 

'Style','edit', ... 

'Strmg',trst,... 

'Callback','trst=get(gcbo,"Strmg");S_USER_INPUT.trst=str2nuni(trst);',... 

'Tag',EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358429  0.342995  0.175123  0.0483092], ... 

'Strmg','Wing  E£F.  Factor  -  e', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrolCParent'jH  PERF  IN, ... 

'Units','noniialized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',10.549918  0.342995  0.0981997  0.0483092], ... 
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'Style','edit', ... 

'String',ewing,... 

’Callback','ewing=get(gcbo,"String");S_USER_INPUT.ewing=str2nuin(ewing);',... 

Tag'.'EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'UnitsVnoraialized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position', [0.358429  0.280193  0.175123  0.0483092], ... 

'Strmg','Blade  Wt-Aero  Obs.)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uiconlrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1  1], ... 

'Position’,[0.549918  0.277778  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String’,wblade,... 

'Callback','wblade=get(gcbo,"String");S_USER_ENPUT.wblade=str2num(wblade);',... 

'Tag','EditTextr); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358429  0.21256  0.175123  0.0483092], ... 

'String','No.  Blade  Elements', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H_NBE  =  uicontrol(Tarent',H_PERF_IN, ... 

'Units','noiinalized', ... 

'BackgroundColor', [1 1  1], ... 

'Position',[0.549918  0.21256  0.0981997  0.0483092], ... 

'Style','edit', ... 

'String',nbe,... 

'Enable','on',... 

'Callback','nbe=get(gcbo,"String");S_USER_INPUT.nbe=str2num(nbe);',... 

Tag','EditTextl'); 

H_RADSPC  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nomiali2ed', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.331627  0.15083  0.320368  0.0467572], ... 

'String','Select  for  imeven  radial  blade  element  spacing', ... 

'Value',0, ... 

'Callback',['global  NEW_r  ;NEW_i=(];',... 

'if  get(gcbo,  "Value")==l,'... 

'set(H_NBE,"Eiiable",''o£F'),',... 

* 

'setai_NBE,"Enable","on"),',... 

'end,'],... 

'Style','checkbox', ... 

Tag','Checkbox2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

Units'.'normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.924585  0.172979  0.0482655], ... 
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'String'^latlc  Lift  Curve  Slope', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.899693  0.927602  0.09826  0.0482655], ... 

'Style', 'edit', ... 

'String',a,... 

'Callback','a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);',... 

'Tag',EditTextl'); 

d  =  uicontrol('Parent',H_PERF_lN, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.708291  0.855204  0.175026  0.0482655], ... 

'String', 'Auxiliary  Thrust  (lbs)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','norma]ized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.902764  0.856712  0.09826  0.0482655], ... 

'Style','edit', ... 

'String',Taux,... 

'Callback','Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2num(Taux) 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',6, ... 

'Position', [0.70829 1  0.790347  0. 174002  0.0482655], ... 

'String','F]at  Plate  Area  (ft^2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.902764  0.791855  0.09826  0.0482655], ... 

'Style','edit', ... 

'String',Afh,... 

'Callback', 'Afh=get(gcbo,"Strmg");S_USER_rNPUT.Afh=stt2num(Afh);',... 
'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units'j'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

’Position',[0.708291  0.726998  0.174002  0.0482655], ... 

■String',' Vert  Proj  Area  (ft^2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.902764  0.728507  0.09826  0.0482655], ... 
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•Style'/edif, ... 

'String'.Afv,... 

'(Mback','Afv=get(gcbo,"String");S_USER_INPUT.Afv=str2nviiii(Afv);’,... 

Tag^EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', ’nonnalized’, ... 

'Backgr(nmdColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.662142  0.175026  0.0482655], ... 

'String','Vert.  Tail  Area  (ft^2)', ... 

'Slyle','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.902764  0.66365  0.09826  0.0482655], ... 

'Slyle','edit', ... 

'String',Svert,... 

'Callback','Svert=get(gcbo,"Strmg");S_USER_INPUT.  Svert=str2num(Svert);',. . . 
'Tag','EditTextl'); 

d  =  mcontrol('Parent',H_PERF_IN[, ... 

'Umts','nonnaIized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.597285  0.175026  0.0482655], ... 

'String','Vert.  Tail  Span  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrolCParent',H_PERF_IN, ... 

'Units','nomiali2ed', ... 

'BackgroundColor',[l  1 1], ... 

'Position’,[0.902764  0.598793  0.09826  0.0482655], ... 

'Style','edit', ... 

'String',bvert,... 

'Callback',’bvert=get(gcbo,"String");S_USER_INPUT.bveit=str2num(bvert);',... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.532428  0.175026  0.0482655], ... 

■String'.’Vert.  Tail  CL', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  iiicontrol('Parent',H_PERF_IN, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.902764  0.535445  0.09826  0.0482655], ... 

'Slyle','edit', ... 

'String',CLvert,... 

'Callback’,'CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert) 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

’Units','nomialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.46908  0. 175026  0.0482655], ... 
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'String', 'Vert.  Tail  CDo', ... 

'Style','text', ... 

'Tag’,'StaticText2'); 
d  =  iucontrol('Parent',H_PERF_IN, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.902764  0.470588  0.09826  0.0482655], ... 

'Style','edit', ... 

'String',CDovert,... 

'Callback','CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2num(CDovert);',... 

'Tag',EditTextl'); 

d  =  uicontrol(Tarent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.404223  0.175026  0.0482655], ... 

'String', 'Horiz.  Tail  Area  (ft''2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  iucontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Position',[0.902764  0.405732  0.09826  0.0482655], ... 

'Style', 'edit', ... 

'String’,Shoriz,... 

'Callback','Shoriz=get(gcbo,"String");S_USER_lNPUT.Shoriz=str2niim(Shoriz);',... 

'Tag',EditTextl'); 

d  =  uicontrol(Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.339367  0.175026  0.0482655], ... 

'String', 'Horiz.  Tail  Span  (ft)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nornialized', ... 

'BackgroimdColor',[l  1 1], ... 

'Position',[0.902764  0.342383  0.09826  0.0482655], ... 

'Style','edit', ... 

'String',bhoriz,... 

'Callback','bhoriz=get(gcbo,"String");S_USER_INPUT.bhoriz=sti2nuni(bhoriz);',... 

'Tag',EditTextl'); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.708291 0.276018  0.175026  0.0482655], ... 

'String','Horiz.  Tail  CL', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1  1], ... 

'Position',[0.902764  0.277526  0.09826  0.0482655], ... 

'Style','edit', ... 
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'String',CLhoriz,.  .. 

'CallbackVCLhoriz=get(gcbo,"String");S_USER_INPUT.CLhoriz=str2niiin(CLhoriz);’,.-- 

•Tag','EditTextl'); 

d  =  uicontrol(Tarent',H_PERF_IN, ... 

Units'.'nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.708291  0.211161  0.175026  0.0482655], ... 

’String','Horiz.  Tail  CDo', ... 

’Style','text', ... 

'Tag’,’StaticText2'); 
d  =  uicontrol(’Parent',H_PERF_IN, ... 

TJnits^'noimalized', ... 

’BackgroundColor', [1 1 1], ... 

’Position',[0.902764  0.211161  0.09826  0.0482655], ... 

•Style','edit', ... 

'String’,CDohoriz,... 

'Callback','CDohoriz=get(gcbo,"StTing");S_USER_INPUT.CDohoriz=str2num(CDohoriz) 

'Tag','EditTextl’); 

d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units','nonnalized', ... 

•BackgroundColor’,  [0.752941  0.752941  0.752941], ... 

’Position’,[0.663255  0.155354  0.163767  0.0392157], ... 

’String’,’Select  Tail  Rotor  Type', ... 

’Style’,’text', ... 

’Tag',’StaticTextl’); 

H_TR_TYPE  =  uicontrol(’Parent’,H_PERF_IN, ... 

’Units’,’normalized’, ... 

’BackgroundColor’,[0.752941  0.752941  0.752941], ... 

Tosition’,[0.83521  0.137255  0.158649  0.0558069], ... 
’String’,’Conventional|Fan_In-Tail|Notar', . . . 

’Callback’,[... 

'if  get(H_TR_TYPE,  "Value’’)=l,’... 

’tailrot=l;’... 

'elseif  get(H_TR_TYPE,  ’’Value")==2,’. . . 

’tailrot=2;’... 

'elseif  get(H_TR_TYPE,  "Value")==3,’.. . 

’tailrot=3;'... 

'end,'... 

'S_USER_INPUT.tailrot=tailrot;'],. . . 

'Style','popupnienu', ... 

'Tag','PopupMenu2', ... 

'Value',  1); 

H_DISK  =  uicontrolCParent',H_PERF_IN, ... 

'Units','normali2ed', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 

’Position’,[0.663255  0.0935143  0.268168  0.0482655], ... 

'String','Horiz.  Tail  Under  Main  Rotor  Disk', ... 

'Style','checkbox', ... 

Tag','Checkboxl', ... 

'Value',0, ... 

'CreateFcn','taildisk=2;', ... 

'Callback',[... 

'if  get(H_DISK, ’'Value")=l,'... 


115 


'taildisk=l;'... 

'else,'... 

'taildisk=2;'... 

'end,'... 

'S_USER_INPUT.taildisk=taadisk;']); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'Callback', 'performance  input  fcn  back', ... 

'FontSize',12, ... 

'FontWeight'.bold', ... 

'Position',[0.111566  0.00452489  0.163767  0.081448], ... 

'String', '«  Back', ... 

'Tag','Push.buttonl'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Callback', 'performance_input_fcn  print',... 

'Units','nonnalized', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0.3 18321  0.00452489  0.163767  0.081448], ... 

'String', 'Print  Screen', ... 

'Tag','Pushbutton2'); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Callback','performance_input_fcn  cnx',... 

Units' .'normalized', ... 

'FontSize',12, ... 

'FontWei^t'.'bold', ... 

'Position', [0.525077  0.00452489  0.163767  0.081448], ... 

'String'.'Cancel', ... 

'Tag','Pushbutton3 '); 
d  =  uicontrol('Parent',H_PERF_IN, ... 

'Units', 'normalized', ... 

'CaUback',[ 

'global  ^GIME  PICK  S_PERF_INPUT  RADSPC_VAL  NL_TWIST_VAL,PICK=0;REGrME=0 

'S_PERF_INPUT=S_USER_INPUT;RADSPC_VAL=0;NL_TWIST_VAL=O;',... 

'performance_mput_fcn  cont'], ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position', [0.733879  0.00452489  0.163767  0.081448], ... 

'String','Continue  »', ... 

'Tag','Pushbutton4'); 

assigiun('base',’H_DISK',H_DISK); 

assignin('base','S_USER_INPUT',S_USER_INPUT); 

assignin('base','S_PERF_INPUT',S_PERF_INPUT); 

assignin('base','H_NBE',H_NBE); 

assignin('base','H_MESH'Jl_MESH); 

assignin('base','H_RADSPC',H_RADSPC); 

assignin('base','H_TW',H_TW); 

assignin('base','H_NL_TWIST',H_NL_TWIST); 

assignin(’base','H_TR_TYPE',H_TR_TYPE); 

assigninCbase','H_POP',H_POP); 
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APPENDIX  L.  PERFORMANCE  INPUT  FCN.M 


Switchyard  Callback  function  for  the  performance  input.m  GUI  function. 


function  performance_input_fcn(  Action) 

%  Switchyard  Callback  function  for  perfomiance_inpuLm 
%  JANRAD  98  VERSION  5.0 

global  H_PERF_IN  H_IT_METH  S_PERF_INPUT  S_USER_INPUT  H_BLD_EL  H_AF_MESH 
H_RADSPC... 

RADSPC_VAL  NEW_r  Reff  H_NL_TWIST  NL_TWIST  NL_TWIST_VAL  H_COMP_TR ... 
H_AUX_E_DRNEW_AUX_VAL  H_FIX_TPP  FIX_TPP_VAL  S_FIT_TR_INPUT... 
S_NOTAR_TR_INPlJr  AF_MAJN  AF_TIP  MESH_STA  MESH_VAL 


S_USER_INPUT=S_PERF_INPUT; 
ifnargin, 
switch  Action 
case  'cont' 

ifisempty(getfield(S_PERF_INPUT,’PA')|... 
getfield(S_PERF_INPUT,'temp’)|... 
getfield(S_PERF_INPUT,'Vinf)|... 
getfield(S_PERF_INPUT,'GW)|... 
getfield(S_PERF_INPUT,'omega’)|... 
getfield(S_PERF_INPUT,'naz’)l... 
getfieId(S_PERF_INPUT,'thetao’)|... 
getfield(S_PERF_INPUT, 'Swing')!... 
getfield(S_PERF_INPUT,'bwing')|. .. 
getfield(S_PERF_INPUT,'CLwing')|... 
getfield(S_PERF_INPUT,'CDowing')|... 
getfield(S_PERF_INPUT,'ewing')|... 
getfield(S_PERF_INPUT,'afoil')|... 
getfield(S_PERF_INPUT,'a')|... 
getfield(S_PERF_INPUT,'b')|... 
getfield(S_PERF_INPUT,'R')|... 
getfield(S_PERF_INPUT,'e')|... 
getfield(S_PERF_INPUT,'giip')|. .. 
getfield(S_PERF_INPUT,'rchord')|... 
getfield(S_PERF_INPUT,'tr')|... 
getfield(S_PERF_INPUT,'trst')|... 
getfield(S_PERF_INPUT,'twist')|... 
getfield(S_PERF_INPUT,'wblade')|... 
getfield(S_PERF_INPUT,'nbe')|... 
getfield(S_PERF_INPUT,'Taux')|.. . 
getfield(S_PERF_INPUT,'Afh')|... 
getfield(S_PERF_INPUT,'Afv')|... 
getfield(S_PERF_INPUT,'Svert')|... 
getfield(S_PERF_INPUT,'bvert')|... 
getfield(S_PERF_INPUT,'CLvert')|... 
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getfield(S_PERF_INPUr;CDovert’)|..  . 
getfield(S_PERF_INPUT,’Shoiiz')|... 
getfield(S_PERF_INPUT,’bhoriz’)|... 
getfield(S_PERF_INPUT,'CLhoriz')|... 
getfield(S_PERF_INPUT,'CDohoriz')); 
empty_boxes 
end 

if  get(H_RADSPC,'Value’)==l 
RADSPC_VAL=1; 
end 

if  get(H_NL_TWIST,’Value’)=l 
NL_TWIST=1; 
end 

compoundtailrotor 
close  (H_PERF_IN) 
case  'cnx' 

perfonnance_input 
close  (gcf) 
case  "back' 
analysis 

close  ai_PERF_IN) 
case  'print' 

set(gcf,'PaperOrientation', 'landscape') 
set(gcf,'PaperPosition',[.5  .5  10  7.5]) 
print  -dwinc 
case  'return' 
janrad98 
close  all 
case  'quit' 
quit _gui 
case  'about' 
aboutjanrad 
case  'mesh' 
airfoil_mesh 
case  'ok' 

close  (H_AF_MESH) 
end 
end 
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APPENDIX  M.  PERFORMANCE  OUTPUT.M 


This  file  creates  the  GUI  to  display  the  calculated  results  from  a  previously  saved 
input  file  or  newly  created  user  input.  It  is  call  in  Perf.m. 


function  performance_outputO 

%  GUI  window  to  display  Janrad  performance  output. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  performance_output 

global  COUNT  H_PERF_OUT  S_PERF_OUTPUT  S_USER_INPUT  H_SAVE ... 
H  datain  H  dataout  H  vecdata  H  checkl  H_check2  H  checkS  OUT  COUNT 

COUNT=l; 

H_PERF_OUT  =  figureCUnits'/normalized', ... 

'Color’,[0.8  0.8  0.8], ... 

'Colormap',matO, ... 

'Name',’Perfomiance  Output', ... 

'NumberTitle','off, ... 

PointerShapeCData',inatl, ... 

Position’,[-0.003125  0.05625  0.954688  0.86875], ... 

•Tag','Figl'); 

b  =  uimenuCParent',H_PERF_OUT, ... 

’Label'.'JANRAD  Options', ... 

'Tag','uimenur); 
c  =  uimenuCParent',b, ... 

'Callback','peifonnance_ouQ)ut_fcn  quit', ... 

'Label','Quit  JANRAD',... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',b, ... 

'Callback','performance_output_fcn  return',... 

'Laber,Retum  to  Begining', ... 

'Tag', 'JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',b, ... 

'Callback','peiformance_output_fcndelta_input',... 

'Laber,'Change  Input  Parameters', ... 

'Tag','Subuimenur); 
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c  =  uimenu('Parent',b, ... 
'CallbackVperfonnance_output_fcn  about',. - 
'Label',' About  Janrad  98  ...', ... 

'Separator','on',... 

Tag','Subuimenul'); 
b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.03 10966  0.925659  0.327332  0.0383693], 
'String', 'Fuselage  Drag  (lbs.)', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.376432  0.925659  0.0981997  0.0383693], ... 
'String',S_PERF_OUTPUT.Dfuse, ... 

'Style'.'text', ... 

Tag',’StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSi2e',10, ... 

'Position',[0.0310966  0.872902  0.327332  0.0383693], 
'String', 'Rotor  Drag  Obs.)', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.376432  0.872902  0.0981997  0.0383693], 
'String',S_PERF_OUTPUT.Hrotor, ... 

'Style','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',  [0.03 10966  0.817746  0.327332  0.0383693], 
'String','WingLiftabs.)',... 

'Style’,'text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','noimalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.376432  0.817746  0.0981997  0.0383693], 
'Slring',S_PERF_OUTPUT.Lwing, ... 

'Style','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Umts','nornialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
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'FontSize',10, ... 

'Position', [0.03 10966  0.76259  0.327332  0.0383693], . 
'String'.'Wing  Drag  (lbs.)’, ... 

'Style',’text', ... 

'Tag’,’StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position’,[0.376432  0.76259  0.0981997  0.0383693], . 
'String',S_PERF_OUTPUT.Dwing, ... 

'Style','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

Position',[0.03 10966  0.709832  0.327332  0.0383693], 
'String',’Horizontal  Tail  Lift  (lbs.)', ... 

'Slyle','text', ... 

'Tag’,'StaticTextl'); 

b  =  uicontrol('Parenl',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
Position',[0.376432  0.707434  0.0981997  0.0383693], 
'String',S_PERF_OUTPUT.Lhoriz, ... 

'Style’,'text', ... 

'Tag',’StaticTextl'); 

b  =  uicontrol('Parent'ji_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSi2e',10, ... 

'Position’,  [0.03 10966  0.654676  0.327332  0.0383693], 
'String',’Horizontal  Tail  Drag  (lbs.)', ... 

'Style','text', ... 

'Tag'.'StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position’,[0.376432  0.654676  0.0981997  0.0383693], 
'Style', 'text', ... 

'String’,S_PERF_OUTPUT.Dhoriz', ... 
'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position’,[0.03 10966  0.59952  0.327332  0.0383693], .. 
'String','Vertical  Tail  Lift  Gbs.)', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
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■Position', [0.376432  0.59952  0.0981997  0.0383693], . 
'Strmg',S_PERF_OUTPUT.Lvert, ... 

'Style','text', ... 

'Tag’,'StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

’BackgroundColor',[0.752941  0.752941 0.752941], ... 
'FontSize',10, ... 

■Position', [0.0310966  0.546763  0.327332  0.0383693], 
'String', 'Vertical  Tail  Drag  (lbs.)', ... 

■Style'.'text', ... 

'Tag',’StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
■Position', [0.376432  0.546763  0.0981997  0.0383693], 
'String',S_PERF_OUTPUT.Dvert, ... 

'Style','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nornialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
■PontSize'jlO, ... 

'Position',[0.03 10966  0.491607  0.327332  0.0383693], 
'String',Tip  Path  Angle  (deg)', ... 

'Style','text', ... 

’Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.376432  0.491607  0.0981997  0.0383693], 
'String',S_PERF_OUTPUT.alphaT, ... 

'Style'.'text', ... 

'Tag'.'StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',  [0.03 10966  0.436451  0.327332  0.0383693], 
'String','Rotor  Coning  Angle  (deg)', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicoiilrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',  [0.376432  0.436451  0.0981997  0.0383693], 
'String',S_PERF_OUTPUT.betao, ... 

'Slyle','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_Ol]T, ... 
'Units’,'noniialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 
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■Position', [0.03 10966  0.383693  0.327332  0.0383693], ... 
'Stiing',’Location  of  Main  Thrust  (r/R)', ... 

'Style',’text', ... 

'Tag',’StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Position',[0.376432  0.383693  0.0981997  0.0383693], ... 
'String’,S_PERF_OUTPUT.rT2, ... 

'Style','text', ... 

'Tag’,'StaticTextl'); 

b  =  uicontrol(Parent',H_PERF_OUT, ... 

'Units','nonnalized', ... 

■BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

’Position’,[0.03 10966  0.328537  0.327332  0.0383693], ... 
'String',Tst  Lat.  Cyclic  Term  -  Al', ... 

’Style’,'text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent’,H_PERF_OUT, ... 

'Units','nomialized', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position’,[0.376432  0.328537  0.0981997  0.0383693], ... 
'String’,S_PERF_OUTPUT.thetalc, ... 

'Style','text', ... 

■Tag'.'StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units'.'noimalized', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.03 10966  0.273381  0.327332  0.0383693], ... 
'String','lst  Long.  Cyclic  Term  -  Bl', ... 

'Style’,'text', ... 

'Tag','StaticTextl’); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units*,'noimalized', ... 

'BackgroundColor',[0. 752941  0.752941  0.752941], ... 
■Position', [0.376432  0.273381  0.0981997  0.0383693], ... 
'String',S_PERF_OUTPUT.thetals, ... 

'Slyle','text', ... 

Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units','normalized', ... 

■BackgroundColor',  [0.752941  0.752941  0.752941], ... 
PontSize',10, ... 

'Position',[0.512275  0.923261  0.327332  0.0383693], ... 
'String','Collective  Pitch  @  .7  r/R  (deg)', ... 

■Style'.'text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units','nonnali2ed', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
■Position', [0.859247  0.925659  0.0981997  0.0383693], ... 
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'String', S_PERF_OUTPUT.thetao, ... 

'Style','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_01JT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.512275  0.870504  0.327332  0.0383693], . 
'String','Solidity  (sigma)', ... 

'Slyle','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',  [0.859247  0.872902  0.0981997  0.0383693], 
'Slring',S_PERF_OUTPl]T.solidity, ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position', [0.512275  0.815348  0.327332  0.0383693], . 
.'Strmg','Disk  Loading  (lbs.  /fF'2)', ... 

'Style', 'text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.859247  0.817746  0.0981997  0.0383693], 
'String', S_PERF_OUTPUT.DL, ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units’,'nonnalized', ... 

'BackgroundColor', [0.752941 0.752941  0.752941], ... 
TontSize',10, ... 

'Position',[0.512275  0.760192  0.327332  0.0383693], . 
'String', 'Figure  of  Merit', ... 

'Style','text', ... 

'Tag','StaticTexl  1 '); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','noTmalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 
'Position', [0.859247  0.76259  0.0981997  0.0383693], . 
'String',S_PERF_OUTPUT.FM, ... 

'Style','text', ... 

Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.512275  0.707434  0.327332  0.0383693], . 


124 


'String', 'CT/Sigma', ... 

■Style', 'text', ... 

'Tag'.'StaticTextl'); 

b  =  iiicontrol('Parent',H_PERF_OUT, ... 

Units', 'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Position',[0.859247  0.709832  0.0981997  0.0383693], .. 
'Strmg',S_PERF_OUTPUT.CT_sig, ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol(Parent',H_PERF_OUT, ... 

'Units','nonnaIized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.5 12275  0.652278  0.327332  0.0383693], ... 
'String','CQ/Sigma', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  idcontrol(Parent',H_PERF_OUT, ... 

Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Posilion',[0.859247  0.654676  0.0981997  0.0383693], .. 
'String',S_PERF_OUTPUT.CQ_sig, ... 

'Slyle','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol(Tarent',H_PERF_OUT, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.512275  0.597122  0.327332  0.0383693], ... 
'String','CH/Sigma', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol(Tarent',H_PERF_OUT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Position',[0.859247  0.59952  0.0981997  0.0383693], ... 
'String',S_PERF_OUTPUT.CH_sig, ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol(Pareiil',H_PERF_OUT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.512275  0.544365  0.327332  0.0383693], ... 
'String','Tip  Mach  No.  of  Advancing  Blade', ... 
'Slyle','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol(Tarent',H_PERF_OUT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.859247  0.546763  0.0981997  0.0383693], ... 
'String',S_PERF_OUTPUT.Machtip, ... 
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'Style’,'text', ... 

'Tag',’StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units', 'normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.5 12275  0.489209  0.327332  0.0383693], ... 
'String', 'Advance  Ratio', ... 

'Style', 'text', ... 

'Tag','StaticTextr); 

b  =  uicontrol(Tarent',H_PERF_OUT, ... 
'Units’,'nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position’,[0.859247  0.491607  0.0981997  0.0383693], . 
'String', S_PERF_OUTPUT.mn, ... 

'Style','text', ... 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position’,[0.5 12275  0.434053  0.327332  0.0383693], ... 
'String', 'Rotor  Thrust  Required  -  TPP  (lbs.)', ... 
'Slyle'.'text', ... 

'Tag',’StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',(0.859247  0.436451  0.0981997  0.0383693], . 
'String',S_PERF_OUTPUT.T, ... 

'Style','text', ... 

'Tag',’StaticTextr); 

b  =  uicontrol(*Parent',H_PERF_OUT, ... 
'Units’,'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.5 12275  0.381295  0.327332  0.0383693], ... 
'String', 'Rotor  Power  Required  (hp)', ... 

'Style','text', ... 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundCoIor',[0.752941  0.752941  0.752941], ... 
'Position',[0.859247  0.383693  0.0981997  0.0383693], . 
'Slring',S_PERF_OUTPUT.Protor, ... 

'Style','text', ... 

Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
TontSize',10, ... 

'Position',[0.5 12275  0.326139  0.327332  0.0383693], ... 
'String', 'Rotor  Torque  (ft. -lbs.)', ... 
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'Style’.'text', ... 

Tag'.'StaticTextr); 

b  =  uicontrol(’Parent',H_PERF_OUT, ... 
'Units'/normalized', ... 

'BackgromdColor', [0.752941  0.752941  0.752941], ... 
'Position', [0.859247  0.328537  0.0981997  0.0383693], 
'Strmg',S_PERF_OUTPUT.Qrotor, ... 

'Slyle','text', ... 

Tag','StaticTextl'); 

b  =  iiicontrol('Parent',H_PERF_OUT, ... 
'Units’,*normalized', ... 

'BackgroiindColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position', [0.512275  0.270983  0.327332  0.0383693], . 
'String','Auxilliary  Thrust  (lbs)', ... 

'Style','text', ... 

'Tag'.'StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position',[0.859247  0.273381  0.0981997  0.0383693], 
'String',S_USER_INPUT.Taux, ... 

'Style','text', ... 

'Tag'.'StaticTextl'); 

H  checkl  =  uicontrol('Parent’,H_PERF_OUT, ... 
'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position',[0.03 10966  0.177458  0.266776  0.0479616], 
'String','Save  Input  Data  as ....', ... 

'Style','checkbox', ... 

'Tag’,’Checkboxl'); 

H_datain  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','noinialized', ... 

'BackgroundColor', [1  1 1], ... 

'Position’,[0.302782  0.177458  0.0981997  0.0479616], 
'FontSize',12, ... 

'Style','edit', ... 

'String',",... 

'CaUback',[... 

'set(gcbo,''String",get(gcbo,"String''));,'... 
'set(H_dataout,"String'',get(H_datain,"String''));,'... 
'set(H_vecdata,"String'',get(H_datain,"String''));,'. . . 
'set(H_checkl,''Value'',l);,'... 
'set(H_check2,''Value'',l);,’... 
'set(H_check3,’'Value'',l);,'],... 
'HorizontalAlignment','rigjit',... 

'Tag','EditTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units'.'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSi2E',12, ... 

'Position',[0.405892  0.179856  0.0981997  0.0479616], 
'Style', 'text', ... 
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'StringV.mat',... 

'Horizontal  Alignment',  left', . . . 

'Tag',’StaticText2'); 

H_check2  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','noiinalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.03 10966  0.117506  0.266776  0.0479616], . 
'String', 'Save  Output  Data  as ....', ... 

'Style','checkbox', ... 

'Tag','Checkboxr); 

H  dataout  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','noiinali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.302782  0.119904  0.0981997  0.0479616], . 
'FontSize',12, ... 

'String*,",... 

'Style','text', ... 

'Horizontal  Alignment','right', . . . 

'Tag','StaticTextr); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',[0.405892  0.122302  0.0981997  0.0479616], . 
'String','.prf, ... 

'HorizontalAlignment',left’,. . . 

'Style','text', ... 

'Tag','StaticText2'); 

H_check3  =  uicontrol('Parent',H_PERF_OUT, ... 
'Units’,'noiinalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.03 10966  0.059952  0.266776  0.0479616], . 
'String','&ve  Matrix  &  Vector  Data  as ....', ... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_vecdata  =  uicontrolCParent',H_PERF_OUT, ... 
'Units','noiinalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',  [0.302782  0.0623501  0.0981997  0.0479616], 
'FontSize',12, ... 

'Style’,'text', ... 

'HorizontalAlignment', 'right', . . . 

'Tag','StaticTextl'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',[0.405892  0.0647482  0.0981997  0.0479616], 
'String', '_p.niat', ... 

'HorizontalAlignment',  'left',. . . 

'S(yle','text', ... 

'Tag’,'StaticText2'); 

b  =  uicontrol('Parent',H_PERF_OUT, ... 
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'Units’, 'nonnalized', ... 

'FontSize',12, ... 

'FontWeight',’bold’, ... 

'Posilion',[0.572831  0.146283  0.140753  0.0815348], ... 

’String','«Back', ... 

Tag','Pushbuttonl',... 

'Callback’,'performance_output_fcnback'); 
b  =  uicontrol('Parent',H_PERF_OUT, ... 

'Units','nonnalized', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.749591  0.146283  0.140753  0.0815348], ... 

'String','Options  »', ... 

Tag’,'Pushbuttonl',... 

'Callback','global  OUT_COUNT,OUT_COUNT=0;perfonnance_output_fcn  opt'); 
H_SAVE  =  uicontrol(Tarent',H_PERF_OUT, ... 

'Units’,’normalized', ... 

'Callback', 'peiformance  output  fcn  save', ... 

'FontSize',12, ... 

'FontWeight’,’bold', ... 

'Position’,[0.572178  0.0325048  0.14042  0.0803059], ... 

'String'j'feve', ... 

'Tag',’Pushbuttonl'); 
b  =  uicontrol('Parent’,H_PERF_OUT, ... 

'Callback','perfonnance_output_fcn  print', . . . 

'Units','nonnalized', ... 

'FontSize’,12, ... 

'FontWeight’,'bold’, ... 

'Position’,[0.749344  0.0344168  0.17042  0.0803059], ... 

'String'.Trint  Screen', ... 

Tag','Pushbuttonr); 

assignin('base','H_datain',H_datain); 

assignin('base','H_dataout',H_dataout); 

assignin('base','H_vecdata',H_vecdata); 

assignin('base','H_checkr,H_check  1); 

assignin('base','H_check2',H_check2); 

assignin('base','H_check3',H_check3); 

assignin('base','H_SAVE',H_SAVE); 
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APPENDIX  N.  PERFORMANCE  OUTPUT  FCN.M 


Switchyard  Callback  function  for  the  performacne_output.m  GUI  function. 


function  peifonnance_output_fcn(  Action) 

%  Switchyard  Callback  for  perfomiance_output.m 
%  JANRAD  98  VERSION  5.0 

global  H_PERF_OUT  S_USER_INPUT  S_PERF_INPUT  S_PERF_OUTPUT  S_MATR_VEC... 
H  datain  H  dataout  H  vecdata  H  checkl  H_check2  H  checkS  ... 

H_outputfile  H_vecfile  H_inputfile  OUT_COUNT  H_SAVE 


ifnargin 
switch  Action 
case  hack' 

close  (H_PERF_OUT) 

S_PERF_INPUT=S_USER_INPUT; 
iteration_method 
case  'opt' 

if  get(H_checkl,'Value')=l 
S_USER_INPUT=S_PERF_INPUT; 

S_USER_INPUT.Vinf=S_USER_INPUT.Vinfyi.68781; 
S_USER_INPUT.thetao=S_USER_INPUT.thetao*57.3; 
S_USER_INPUT.twist=-S_USER_INPUT.twist*57.3; 
filenaniel=get(H_datain,'String'); 
evalffsave  ',filenamel,’  S_USER_INPUT]) 
end 

if  get(H_check2,’Value')==l 
filename  l=get(H_datain,’StringO; 
eval(['!copy  prmt_ten[ipl ',  filenamel,'.prf]) 
end 

if  get(H_check3,'Value')==l 
unstructure3 

filename2=[filenamel  '_p']; 

eval(['save  ',filename2,'  Reff  r  dr  psi  vi  theta  betat  alpha  Tpsi  Npsi  Mpsi  DMpsi  dT  dN  dM  dD  cblade 
CL  CD']); 
end 

options 

set(H_inputfile,'String',[filenamel,'.mat']) 
set(H_outputfile,'String',[get(H_dataout, 'String'), '.prf]) 
set(H_vecfile,'String',[get(H_vecdata, 'String*), 'jp.mat']) 
close  (H_PERF_OUT) 
case  'save' 

set(H_SAVE, 'Enable', ’off) 
if  get(H_checkl,'Value')==l 
S_USER_INPUT=S_PERF_INPUT; 

S_USER_INPUT.Vinf=S_USER_INPUT.Vinfil.68894444; 
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S_USER_INPUT.thetao=S_USER_INPUT.thetao*57.3; 
S_USER_INPUT.twist=-S_USER_INPUT.twist*57.3; 
filenamel=get(H_datain, 'String'); 
eval(['save  ',filenamel,'  S_USER_INPUT']) 
end 

if  get(H_check2,'Value')==l 
filenamel=get(H_datain, 'String'); 
eval(['!cx)py  print  templ ',  filenamel,'.prf]) 
end 

if  get(H_check3,'Value')==l 
imstracture3 

filename2=[filenainel  '_p']; 

eval(['save  '.filename!,'  Reff  r  dr  psi  vi  theta  betat  alpha  Tpsi  Npsi  Mpsi  DMpsi  dT  dN  dM  dD  cblade 
CL  CD']); 
end 

set(H_SAVE,'Enable','on') 
case  'print' 

set(gcf,'PaperOrientatiori, 'landscape') 
set(gcf,'PaperPosition',[.5  .5  10  7.5]) 
print  -dwinc 
case  'return' 
close  all 
janrad98 
case  'deltainput' 
close  (H_PERF_OUT) 
perfonnance_input 
case  'quit' 
quit _gui 
case  'about' 
aboutjanrad 
end 
end 
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APPENDIX  O.  ITERATION  METHOD.M 


This  file  creates  GUI  to  select  iteration  method  and  display  the  status  of  JANRAD 
98  computations.  Status  comments  are  set  in  Trim.m  and  Perf  m.  When  computations 
are  complete,  this  window  is  closed  in  Perf  m. 


function  iterationmethodO 

%  GUI  window  to  select  iteration  method,  start  computational  routines, 

%  and  display  clock  and  performance  method  status. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  iteration_method 

global  H_IT_METH  H_NI  H_AS  H_AL  H_GW  H_BT  H_BTR  H_SOT  H_WSA  H_RBR  H_RBS  ... 
H_STATUS  H_STATUS1  H_STATUS2  H_STATUS3  H_RADSPCRADSPC_VAL... 

H_GO  H_RUPT  H_BK  H_RES  H_MEN  r_HOLD... 

COUNT  S_USER_INPUT  S_PERF_INPUT  REGIME  PICK  ... 

COUNT=l;  r_HOLD=l; 

S_USER_INPUT=S_PERF_INPUT; 

H_n’_METH  =  figure('UnitsVnormalized', ... 

’Color’,[0.8  0.8  0.8], ... 

'Colormap'.matO, ... 

'Name', 'Iteration  Method’, ... 

’NmriberTitle'j'ofP, ... 

PointerShapeCData',matl, ... 

Position', [-0.003125  0.0625  0.954688  0.8625], ... 

'Tag’,Tigl'); 

H_MEN  =  uimenu(Parent',H_IT_METH, ... 

'Laber,'JANRAD  Options', ... 

'Tag'.'uimenul'); 
c  =  uimenu(Parent',H_MEN, ... 

'Callback', 'iteration_method_fcn  quit', ... 

'Laber,’Quit  JANRAD',... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenu(Parent',H_MEN, ... 

'Callback','iteration_method_fcn  return',. . . 

'Laber,'Retum  to  Begining', ... 
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TagVJANRAD  OptionsSubuimenul’); 
c  =  uimenu(Tarent',H_MEN, ... 

'Callback', 'iteration_method_fcndelta_input',... 

'Label', 'Change  Input  Parameters', ... 

'Tag',  'Subuimenu  1 '); 
c  =  uimenu('Parent',H_MEN, ... 
'Callback','iteiation_method_fcn  about',... 

'Label',' About  Janrad  98  ...', ... 

'Separator', 'on',... 

'Tag'.'Subuimenul'); 
f  =  uicontrol('Parent',H_IT_METH, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 
'FontSize',12, ... 

'FontWeigJit’,’bold', ... 

'Position',[0.0785714  0.864  0.333333  0.0533333], ... 
'String','Choose  Iteration  Method', ... 

'Style','text', ... 

'Tag','StaticTextr); 

H_NI  =  uicontrol('Parent',H_IT_METH, ... 

'Callback', 'iterationmethodfcn  h_ni',. . . 

'Value',  1,... 

'Units','noiinalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',[0.0839304  0.730015  0.333675  0.0527903], 
'String', 'No  Iteration', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton  1'); 

H  AS  =  uicontrolCParent',H_IT_METH, ... 

'Callback' ,'iteration_method_fcnh_as',... 
'Units','nonnalized', ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',[0.0839304  0.671192  0.333675  0.0527903], 
'String', 'Airspeed', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton2'); 

H_AL  =  uicontrol('Parent',H_IT_METH, ... 
'Callback','iteration_method_fcnh_al',... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',(0.0839304  0.61086  0.333675  0.0527903], .. 
'String', 'Altitude', ... 

'Style', 'radiobutton', ... 

Tag','Radiobutton3'); 

H_GW  =  uicontrol('Parent',H_IT_METH, ... 
'Callback','iteration_method_fcn  h _gw',... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position', [0.0839304  0.550528  0.333675  0.0527903], 
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'StringVGross  Weight', ... 

'Slyle','radiobutton', ... 

'Tag','Radiobutton4'); 

H_BT  =  uicontrol('Parent',H_IT_METH, ... 
'Callback','iteration_method_fcn  h_bt',... 
'Units',’nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

•Position', [0.0839304  0.488688  0.333675  0.0542986], 
'String’j'Blade  Twist', ... 

'Style',’radiobutton', ... 

'Tag','Radiobutton5'); 

H_BTR  =  uicontrol('Parent',H_IT_ME'IH, ... 
'Callback','iteration_method_fcnh_btr',... 

•Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

•Position',  [0.0839304  0.426848  0.333675  0.0542986], 
'Stiing','Blade  Taper  Ratio', ... 

'Style','radiobutton', ... 

'Tag','Radiobutton6'); 

H_SOT  =  tiicontrol('Parent',H_rr_METH, ... 
'Callback','iteration_method_fcn  hsot',... 
•Units'.'normalized', ... 

•BackgroimdColor',[0.752941  0.752941  0.752941], ... 
TontSize',12, ... 

Tosition',  [0.0839304  0.365008  0.333675  0.0542986], 
'String','Start  of  Taper', ... 

'Style','radiobutton', ... 

Tag','Radiobutton7'); 

H  WSA  =  uicontrol('Parent',H_rr_METH, ... 
'Callback','iteration_method_fcnh_wsa',.,. 
•Units'.'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

Tosition',  [0.0839304  0.303167  0.333675  0.0542986], 
'String',' Wing  Span  Area', ... 

'Slyle'.'radiobutton', ... 

Tag','Radiobutton9'); 

H  RBR  =  uicontrol(Tarent',H_rr_METH, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Callback', 'iteration_method_fcn  h_rbr', ... 
TontSize',12, ... 

Tosition',  [0.0839304  0.242836  0.333675  0.0527903], 
'String','Nfain  Rotor  Blade  Radius', ... 
'Slyle','radiobutton', ... 

'Tag','RadiobuttonlO'); , 

H_RBS  =  uicontrol('Parent',H_IT_METH, ... 
'Units','normalized', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Callback','iteralion_method_fcn  h_rbs', ... 
TontSize',12, ... 
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'Position', [0.0839304  0.182504  0.333675  0.0527903], 
'String', 'Main  Rotor  Speed', ... 

'Style','radiobutton', ... 

'Tag','Radiobuttonl  1'); 
f  =  iiicontrol('Parent',H_IT_METH, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.482143  0.866667  0.439286  0.0533333], .. 
'String', 'Analysis  Status  Box', ... 

'Style','text', ... 

'Tag','StaticTextr); 

H_STATUS  =  uicontrolCParent',H_IT_METH, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.481576  0.690799  0.439099  0.135747], ... 
•Style',’text’, ... 

'FontSi2e',12, ... 

'FontWeight’,’bold', ... 

'HorizontalAlignment','center',... 

•String',",... 

'Tag','StaticText2’); 

H_STATUS1  =  uicontrolCParent',H_IT_METH, ... 
'Units','nonnalized', ...  v 
'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.483112  0.532428  0.436029  0.140271], ... 
'Style','text', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'HorizontalAlignment','center',. .. 

•String’,",... 

'Tag’,'StaticText3'); 

H_STATUS2  =  uicontrolCParent’JH[_IT_METH, ... 

Units', 'normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position',[0.484135  0.360483  0.433982  0.15083], ... 
•Style','text', ... 

TontSize',12, ... 

TontWei^t','bold', ... 

'HorizontalAlignment','center',. . . 

•String',",... 

'Tag','StaticText4'); 

H_STATUS3  =  uicontrolCParent',H_IT_METH, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.483623  0.18552  0.435005  0.152338], ... 
'Style','texl', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

Horizontal  Alignment','center',. . . 

•String-,",... 

Tag','StaticText5'); 
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H_BK  =  uicontrol(Tarent',H_IT_]V(ETH, ... 

'UnitsVnormalized', ... 

'CallbackViteration_method_fcnback', ... 

'FontSi2e',12, ... 

'FontWeightMrold', ... 

'Position', [0.0767857  0.064  0.178571  0.072], ... 

'String', '«  Back', ... 

'Tag','Piishbuttonr); 

H_GO  =  iiicontrol(Tarent',HJT_METH, ... 

'Units','nonnalized', ... 

'Callback', 'global  PERF_OUTPUT;REGIME=0;iteration_method_fcn  anal', ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.301786  0.0613333  0.178571  0.072], ... 

'String'j'Analyze', ... 

'Tag','Pushbutton2'); 

H_RUPT  =  uicontrol('Parent',H_IT_METH, ... 

’Callback','iteration_method_fcn  interrupt',... 

'Units','normalized', ... 

'FontSize',12, ... 

'FontWeight',^)©^', ... 

'Position',[0.528571  0.0613333  0.178571  0.072], ... 

'String','Interrupt', ... 

'Enable','off,... 

'Tag','Pushbutton3 '); 

H  RES  =  uicontrolCParent',H_IT_METH, ... 

'Callback','iteration_method_fcn  resume',... 

'Units'.'normalized', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position',[0.755357  0.0613333  0.178571  0.072], ... 

'String'.'Resume', ... 

'Enable'.'off,... 

'Tag','Pushbutton4'); 
f  =  uicontrol('Parent',H_lT_METH, ... 

'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

Tosition',[0.0655067  0.173454  0.37564  0.769231], ... 

'Slyle','frame', ... 

'Tag',Tramel'); 

f  =  uicontrol('Parent',H_IT_METH, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.476786  0. 176  0.45  0.768], ... 

'Sfyle’,'frame', ... 

'Tag','Frame2'); 

assigninCbase','!!^',!!!^!); 

assignm(’base','H_AS',H_AS); 

assignin('base','H_AL',H_AL); 

assignin('base','H_GW',H_GW); 

assignin('base','H_BT',H_BT); 

assignin('base','H_BTR',H_BTR); 
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assignm('base','H_SOT',H_SOT); 

assignm('base';H_WSA’,H_WSA); 

assignm(TDase','H_RBR',H_RBR); 

assignin(T3ase','H_RBS',H_RBS); 

assignin('base','H_GO',H_GO) ; 

assignin('base','H_RUPT'JH[_RUPT); 

assignin('base',’H_BK',H_BK); 

assignin(T3ase','H_RES',H_RES); 

assignin('baseVH_MEN',H_MEN); 


APPENDIX  P.  ITERATION  METHOD  FCN.M 


Switchyard  Callback  function  for  the  iteration_method.m  GUI  function. 


function  iteration_method_fcn(Action) 

%  Switchyard  Callback  for  iteration_method.m 

%  JANRAD  98  VERSION  5.0 

global  H_IT_METH  H_NI  H_AS  H_AL  H_GW  H_BT  H_BTR  H_SOT  H_WSA  H_RBR H_RBS  ... 
H_STATUS  H_STATUS1  H_STATUS2  H_STATUS3  NEW_r  H_MESH  H_POP... 

H_GO  H_BK  H_RES  H_RUPT  H_MEN  RADSPC_VAL  H_RADSPC... 

H_fflGE  H_IT_BOX  H_ASPECT  H_ASPECT_EDIT  H_NL_TWIST  NL_TWIST  NL_TWIST_VAL... 
S_PERF_INPUT  S_USER_1NPUT  S_PERF_OUTPUT  PICK  REGIME  H_MESH  MESH_VAL... 
MESH_STA  AF_MAIN  AF_TIP  NEW_TPP  NEW_AUX_VAL  H_FIX_TPP... 

H_AUX_E_DR  S_FIT_TR_INPUT  S_NOTAR_TR_INPUT  FIX_TPP_VAL 

if  nargin, 
switch  Action 
case  Tini' 
set(H_NI, 'Value',  1) 
set(H_AS,'Value’,0) 
set(H_AL,'Value',0) 
set(H_GW, 'Value', 0) 
set(H_BT,'Value',0) 
set(H_BTR,’Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value’,0) 

PICK=0; 
case  'h_as' 
set(H_NI,'Value',0) 
set(H_AS,'Value',l) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS,’Value',0) 

PICK=1; 
case  'h_al' 
set(H_Nl,'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'Value',l) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,’Value',0) 
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set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value’,0) 
set(H_RBS, 'Value', 0) 
PICK=2; 
case  'h _gw' 

set(H_NI,'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'VaIue',0) 
set(H_GW,'Value',l) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA, 'Value', 0) 
set(H_RBR,'Value',0) 
set(H_RBS,'VaIue',0) 
PICK=3; 
case  'hbt' 
set(H_NI,'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT.'Value',l) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS,’Value',0) 
PICK=4; 
case  'h_btr' 

set(H_NI,'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',l) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value',0) 
PICK=5; 
case  "bsot' 

set(H_NI,'Value',0) 

set(H_AS,'Value',0) 

set(H_AL,'Value',0) 

set(H_GW,'Value',0) 

set(H_BT,'Value',0) 

set(H_BTR,'Value',0) 

set(H_SOT,'Value',l) 

set(H_WSA,'Value',0) 

set(H_RBR,'Value',0) 

set(H_RBS,'Value',0) 

PICK=6; 


case  'h_wsa' 

set(H_NI,'Value*,0) 
set(H_AS, 'Value', 0) 
set(H_AL, 'Value', 0) 
set(H_GW, 'Value', 0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',l) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value',0) 
P1CK=7; 
case  'h_rbr' 
set(H_NI,'Value',0) 
set(H_AS,'Value',0) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',l) 
set(H_RBS,'Value',0) 
PICK=8; 
case  lirbs' 

set(H_NI,'Value',0) 
set(H_AS, 'Value', 0) 
set(H_AL,'Value',0) 
set(H_GW,'Value',0) 
set(H_BT,'Value',0) 
set(H_BTR,'Value',0) 
set(H_SOT,'Value',0) 
set(H_WSA,'Value',0) 
set(H_RBR,'Value',0) 
set(H_RBS,'Value',l) 
PICK=9; 
case  'back' 

ifRADSPC_VAL==l 
close  (H_1T_METH) 
blade_element 
else  peifonnance_input 
if  get(H_POP,'Value')=7 
set(H_MESH,'Enable','on') 
MESH_VAL=1; 
end 

close  (H_IT_METH) 
end 

case  'anal' 

set(H_GO,'Enable','ofi’); 

set(H_RUPT,'Enable','on'); 

set(H_BK,'Enable','off); 

set(H_RES,'Enable','ofiP); 

set(H_MEN,'Enable','ofP); 


ifget(H_Ni;Value')==l 

Perf 

elseif  get(H_AS,'Value')==l 
iteration_parameters 
set(HJT_BOX,'Strmg’,'AIRSPEED') 
elseif  get(H_AL;Value')=  1 
iterationjjarameters 
set(H_IT_BOX;Stiing', 'ALTITUDE') 
elseif  get(H_GW,'Value')==l 
iteration_parameters 

if  S_PERF_INPUT.PA==0&S_PERF_INPUT.  Vinf==0 
set(H_fflGE,'Enable','on') 
end 

set(H_IT_BOX,'String','GROSS  WEIGHT') 
elseif  get(H_BT,'Value’)==  1 
iteration_parameters 

set(H_IT_BOX;String','BLADE  TWIST) 
elseif  get(H_BTR,'Value')==l 
iteration_parameters 

set(H_IT_BOX, 'String-, 'BLADE  TAPER  RATIO*) 
elseif  get(H_SOT,'Value')=l 
iteration_parameters 

set(H_IT_BOX,'String','START  OF  TAPER') 
elseif  get(H_WSA,'Value')=l 
iteration_parameters 

set(H_IT_BOX,'String','WING  SPAN  AREA') 
set(H_ASPECT,Enable','on') 
set(H_ASPECT_EDIT,Enable’,'on') 
elseif  get(H_RBR,'Value’)==l 
iterationjparameters 

set(H_rT_BOX,'String',’ROTOR  BLADE  RADIUS') 
elseif  get(H_RBS,'Value')=l 
iteration_parameters 

set(H_IT_BOX,'String','ROTOR  BLADE  SPEED(RAD/SEC)') 
end 

case  'interrupt* 
set(H_GO,'Enable','ofF); 
set(H_RUPT,Enable','ofF); 
set(H_BK, 'Enable', 'off); 
set(H_RES,Enable','on'); 
set(H_MEN,'Enable','on'); 
uiwait; 
case  'resume' 
set(H_GO,'Enable','off'); 
set(H_RUPT,Enable','on'); 
set(H_BK,'Enable','off); 
set(H_RES,'Enable','off); 
set(H_MEN,Enable','off); 
uiresume; 
case  'quit' 
quit_gui 
case  'return' 
close  (H_IT_METH) 
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janrad98 
case  'deltainput' 
close  (H_ITJMETH) 
perfomiance_mput 
case  'about' 
aboutjanrad 
end 
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APPENDIX  Q.  ITERATION_PARAMETERS.M 


This  file  creates  GUI  to  enter  iteration  parameters.  It  is  called  by  the  Switchyard 
Callback  function  iteration_method_fcn.m. 


function  iteration_paranieters() 

%  GUI  window  to  enter  iterative  steps. 

%  JAMRAD  98  VERSION  4.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

function  iteration_parameters() 

%  GUI  window  to  enter  iterative  steps. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  iteration_parameters 

global  H_IP  H_HIGE  H_IT_BOX  H_ASPECT  H_ASPECT_ED1T  H_MEN  H_MINUM  H_MAXUM  AR 


H  IP  =  figure('UnitsVnormahzed', ... 

’Color',[0.8  0.8  0.8], ... 

'Coloniiap',mat0, ... 

'Name','Iteration  Parameters', ... 
'NumberTitle'j'off, ... 
'PoINTERShapeCData',matl, ... 
'Position',[0.04375  0.0895833  0.875  0.78125], ... 
'Tag'.-Figl'); 

b  =  uimenuCParent',H_IP, ... 

'Laber,’JANRAD  Options', ... 

'Tag','uimenur); 
c  =  uimenuCParent'jb, ... 

'Callback', 'iteration_parameters_fcn  quit', ... 
'Label','Quit  JANRAD', ... 

'Tag','JANRAD  OptionsSubuimenul');  • 
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c  =  uimenu('Parent',b, ... 

'CallbackViteration_parameters_fcn  return', ... 

'Label', 'Return  to  Begining', ... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',b, ... 

'Callback','iteration_parameters_fcn  delta_input', ... 
'Label'.'Change  Input  Parameters', ... 

'Tag','Subuimenur); 
c  =  uimenu('Parent',b, ... 

'Callback','aboutJanrad', ... 

'Laber,'About  Janrad  98 ...', ... 

'Separator'.'on', ... 

'Tag','Subuimenur); 
b  =  uicontrol('Parent',H_IP, ... 

'Units','nomialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'FontWei^t'j'bold', ... 

'Position',  [0.2607 14  0.888  0.476786  0.0533333], ... 

'String', 'Performance  Analysis', ... 

'Style','text', ... 

'Tag','StaticTextl'); 

H_IT_BOX  =  uicontrol('Parent',H_IP, ... 

'Units','normalized', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.260714  0.824  0.476786  0.0533333], ... 

'Style','text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',H_lP, ... 

'Units','noiinalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.2625  0.705778  0.357143  0.0533333], ... 

'String','Start  Iteration  at :', ... 

'Style','text', ... 

'Tag','StaticTextr); 

H_MINUM  =  uicontrolCParent',H_IP, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position', [0.625  0.704  0.107143  0.0533333], ... 

'Style','edit', ... 

'Callback',  ['global  MINUM;MINUM=str2num(get(gcbo,  "String"));', 
'ifget(H_AL,"Value")==l&sli2num(get(gcbo,"String"))=0|', 
'get(H_AS,"Value")==l&str2num(get(gcbo,"String"))==0,',... 
'set(H_fflGE,"Enable","on"),end,'],... 

Tag','EditTextl'); 
b  =  uiconlTol('Parent',H_IP, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.2625  0.634667  0.357143  0.0533333], ... 

'String','End  Iteration  at :', ... 

'Style','text', ... 

'Tag','StaticTextr); 

H_MAXUM  =  uicontrolCParent',H_IP, ... 
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'Units'.'normalized', ... 

'BackgroundColor’,[l  11],... 

'Position',[0.625  0.634667  0.107143  0.0533333], ... 

'Style','edit', ... 

'(Mback^’globalMAXUM;MAXUM=str2num(get(gcbo,"St^mg"));’,.. 
Tag','EditTextl'); 
b  =  uicontrol(Tarent',H_IP, ... 

Units','nonnalized', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 
’Position’,[0.2625  0.563556  0.357143  0.0533333], ... 

'StringVIteration  Interval ... 

'StyleVtext', ... 

TagVStaticTextl'); 
b  =  uicontrolCParent^H  IP, ... 

'Units’,'normalized’, ... 

'BackgroundColor',[l  1 1], ... 

Tosition',[0.625  0.562667  0.107143  0.0533333], ... 

’Style','edit', ... 

'CallbackVglobal  INTER;INTER=str2niim{get(gcbo,''String''));',... 
'Tag’,'EditTextl'); 

H  ASPECT  =  uicontrolCParent',!!  ^, ... 

UnitsVnormalized', ... 

'BackgroiindColor’,[0.752941  0.752941  0.752941], ... 
'Position',[0.2625  0.492444  0.355357  0.0533333], ... 

'String',’ Aspect  Ratio  :', ... 

'Style','text', ... 

'Enable','o£F,... 

'Tag’.'StaticTextl'); 

H_ASPECT_EDIT  =  viicontrol(Tarent',H_lP, ... 

Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.625  0.490667  0.107143  0.0533333], ... 

’Style','edit’, ... 

'Enable’,’ofF,... 

'Callback','global  AR;AR=str2nimi(get(gcbo,"String"));',... 
'Tag','EditTextl'); 

HJEIIGE  =  uicontrol('Parent',H_IP, ... 

'Units','nonnalized’, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

’Enable’,’o£P, ... 

Tosition’,[0.2625  0.421333  0.358929  0.0533333], ... 

'String'.'Include  HIGE  Calculations?', ... 

'Style','checkbox', ... 

’Value’,0,... 

'Callback','ifget(gcbo,"Value")==l,REGIME=l;else,REGIME=0;,end' 
'Tag','Checkboxl’); 
b  =  iiicontrol('Parent',H_IP, ... 

'Units','normalized', ... 

'Callback','iteration_paranieters_fcn  back', ... 

'FontSize',12, ... 

’FontWei^t’,'bold’, ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 
’Position’,[0.260714  0.245333  0.196429  0.0986667], ... 
’String’,’«BACK', ... 

'Tag','Pushbuttonl'); 
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b  =  iiicontrol('Parent',H_IP, ... 

'Units', 'normalized', ... 

'Callback','iteration_parameters_fcn  anal', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.542857  0.245333  0.196429  0.0986667], ... 

'String', 'Analyze  »', ... 

'Tag','Pushbutton  1 '); 
b  =  uicontrol('Parent',H_IP, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0. 180357  0.088  0.646429  0.106667], ... 

'String', 'Warning  -  Exessive  Iteration  Limits  May  Increase  Processing  Times!', . 
'Style', 'text', ... 

'Tag','StaticTextr); 
b  =  uiconlrol('Parent',H_IP, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.176786  0.0746667  0.655357  0.125333], ... 

'Style','frame', ... 

'Tag’,'Framel'); 
b  =  uicontrol('Parent',H_IP, ... 

'Units','normalized’, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.253571  0.810667  0.498214  0.146667], ... 

'Style','frame', ... 

Tag','Frame2'); 

assignin('base','H_HlGE',H_fflGE) 
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APPENDIX  R.  ITERATION  PARAMETERS  FCN.M 


Switchyard  Callback  function  for  iteration_parameters.m  GUI  function. 


function  iteration_parameters_fcn(  Action) 

%  Switchyard  Callback  for  iteration_parameters.m 
%  JANRAD  98  VERSION  5.0 

global  H_IT_ME'ra  H_IP  H_NI  H_AS  H_AL  H_GW  H_BT  H_B'IR  H_SOT  H_WSA  H_RBR  H_RBS 
H_HIGE ... 

H_GO  H_BK  H_RES  H_RUPT  H_MEN  H_STATUS  H_STATUS1  H_STATUS2  H_STATUS3  AR... 
S_USER_INPUT  PICK  MINUM  MAXUM  INTER  REGIME  MESH_VAL  MESH_STA  AF_MAIN 
AF_TIP... 

NEW_TPP  NEW_AUX_VAL  H_FIX_TPP  F1X_TPP_VAL  S_Frr_TR_INPUT 
S_NOTAR_TR_INPUT... 

NEW_r  NL_TWIST  NL_TWIST_VAL 

ifnargin, 
switch  Action 
case  'back' 

set(H_BK,'Enable','on'); 
set(H_GO,Enable','on'); 
set(H_RUPT, Enable', 'off); 
set(H_RES,'Enable','off); 
set(H_MEN, 'Enable', 'on'); 
close(H_IP) 
case  'anal' 

set(H_BK,'Enable','off); 

set(H_GO,Enable','off); 

set(H_RUPT,Enable','on'); 

set(H_RES,'Enable','off); 

set(H_MEN,'Enable','ofF); 

close(H_IP) 

Perf 

case  'quit' 
quitgui 
case  'return' 
janrad98 
close(H_IP) 
close  (H_IT_METH) 
case  'delta_input' 
perfonnance_input 
close  (H  IP) 
close  (H_IT_METH) 
case  'about' 
about Janrad 
end 
end 
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APPENDIX  S.  OPTIONS.M 


This  file  creates  the  GUI  to  select  additional  analysis  methods  and  print  input  and 
output  files  saved  fi'om  the  performance  output  window. 


function  optionsQ 

%  GUI  window  to  Select  user  options  at  end  of  performance  routine. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  hanie  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-fUe  and  its  associated  MAT-file  must  be  on  your  path. 

load  options 

global  H_OPTIONS  H_PSCA  H_PRDA  H_C1M  H_C1D  H_RTB  H_EJANRAD  NAME  ... 
H_datain  H_dataout  Hvecdata ... 

Hjrintin  H_printout  H_printvec ... 

Hinputfile  Houtputfile  Hvecfile ... 

H  checkl  H_check2  H_check3  filenames  OUT_COUNT 

H  OPTIONS  =  figure('Units','normahzed', ... 

'Color',[0.8  0.8  0.8], ... 

'Colormap',niatO, ... 

'Name'j'Options', ... 

'NumberTitleVofF, ... 

'PointerShapeCData',matl, ... 

'Position',[-0.003125  0.0625  0.954688  0.8625], ... 

•Tag’,'Figl’); 

b  =  uimenu('Parent',H_OPTIONS, ... 

'Laber,'JANRAD  Options', ... 

'Tag'.'uimenul'); 
c  =  uimenuCParent',b, ... 

'Callback','options_fcn  quit', ... 

'Laber,'Quit  JANRAD', ... 

'Tag'j'JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',b, ... 

'Callback','options_fcn  return',... 

'Laber,'Retum  to  Begining', ... 

'Tag', 'JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',b, ... 

'CMback','options_fcndelta_input',... 
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'LabelVChange  Input  Parameters', ... 
'Tag',‘Subuimenur); 
c  =  uimenu('Parent',b, ... 

'Callback', 'options_fcn  about',... 

'Label',' About  Janrad  98  ...', ... 

'Separator', 'on',... 

'Tag','Subuimenu  1 '); 
b  =  uicontrol('Parent',H_OPTIONS, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',16, ... 

'FontWeight','bold', ... 

'Position’,[0.0715631  0.808  0.378531  0.109333], ... 
'String','Select  Option', ... 

'Style’,'text', ... 

'Tag','StaticTextr); 

H_PSCA  =  uicontrol('Parent',H_OPnONS,... 

'Value',1,... 

'Callback','options_fcn  h_psca',... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0715631  0.72  0.378531  0.0533333], ... 
'String', 'Perform  Stabilty  &  Control  Analysis', ... 
'Style','radiobutton', ... 

'Tag','Radiobutton3', ... 

'Value',1); 

H_PRDA  =  uicontrol('Parent',H_OPnONS,... 
'Callback','options_fcn  h_prda',... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.0715631  0.632  0.378531  0.0533333], ... 
'String', 'Perform  Rotor  Dynamics  Analysis', ... 
'Style','radiobutton', ... 

'Tag','Radiobutton4'); 

H_CIM  =  uicontrol('Parent',H_OPTIONS,... 
'Callback','options_fcn  h_cim',... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0715631  0.541333  0.378531  0.0533333], 
'String','Change  Iteration  Method', ... 

'Style', 'radiobutton', ... 

'Tag','Radiobutton  1 '); 

H_CID  =  uicontrol('Parent',H_OPTIONS,... 
'Callback','options_fcn  hcid',... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], ... 
'Position',[0.0715631  0.453333  0.378531  0.0533333], 
'String','Change  Input  Data', ... 

'Slyle','radiobutton', ... 

'Tag','Radiobutton2'); 

HRTB  =  uicontrol('Parent',H_OFnONS,... 
'Callback','options_fcn  hrtb',... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0715631  0.365333  0.378531  0.0533333], 
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'String','Retum  to  Begining', ... 

'StyleVradiobutton', ... 

Tag','Radiobutton5'); 

H_EJANRAD  =  uicontrol('Parent',H_OPTIONS,... 
'CallbackVoptions_fcn  hejanrad',... 

'Units', 'normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0715631  0.274667  0.378531  0.0533333], . 
'String','Exit  JANRAD', ... 

'Slyle','radiobutton', ... 

'Tag','Radiobutton6'); 
b  =  uicontrol(Tarent',H_OPTIONS, ... 

'Units','normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 
'FontSize',16, ... 

7ontWeight','bold', ... 

'Position’,[0.546139  0.805333  0.376648  0.106667], ... 
'String',1^t  Selection', ... 

'Style','text', ... 

’Tag',’StaticText2’); 

H_printin  =  uicontrol(Tarent',H_OPTIONS, ... 
'Units',’normalized', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.545548  0.71644  0.169908  0.0527903], ... 

'Striiig',*Print  Input  File  :', ... 

'Style','checkbox', ... 

'Tag’,'Checkboxl', ... 

'Value',0); 

H_inputfi[le  =  iiicontrol('Parent',H_OPT10NS, ... 
’Uiiits','noimalized', ... 

'FontSize',12, ... 

'BackgroundColor',(0.752941  0.752941  0.752941], ... 
’String-,",... 

Tosition',[0.748209  0.71644  0.169908  0.0527903], ... 
'Style','text', ... 

'HorizontalAlignment','left',... 

Tag','StaticText6'); 

H_printout  =  nicontrol(’Parent',H_OPT10NS, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.545548  0.628959  0.169908  0.0527903], ... 
’Stiing','Prmt  Ou^t  File  :', ... 

'Style','checkbox', ... 

'Tag','Checkboxr, ... 

’Value',0); 

H  outputfile  =  uicontrol('Parent',H_OPT10NS, ... 
'Units','noimalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
TontSize',12, ... 

■String',",... 

Tosition',(0.748209  0.628959  0.169908  0.0527903], ... 
’Style','text', ... 

•HorizontalAlignment'.'left',... 

’Tag','StaticText8’); 

H_printvec  =  uicontrol(Tarent',H_OPTIONS, ... 
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'Units'/nomialized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.545548  0.536953  0.169908  0.0527903], ... 
'StringVPrint  Matrix  &  Vector  File  ... 

'Style','checkbox', ... 

Tag',’Checkboxr, ... 

'Value',0); 

H  vecfile  =  uicontrol('Parent',H_OPnONS, ... 
'Uiuts’,'normalized', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position’,[0.748209  0.536953  0.169908  0.0527903], ... 
■String',",... 

■Style','text', ... 

■HorizontalAlignment','left',... 

■Tag','StaticText9'); 
b  =  uicontrol('Parent',H_OPTIONS, ... 

■Callback','options_fcn  print', ... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.595104  0.402667  0.288136  0.072], ... 
'String','Send  to  Printer', ... 

'Tag','Pushbutton2'); 
b  =  uicontrol('Parent',H_OPTIONS, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',18, ... 

'FontWeight','bold', ... 

'Position', [0.564995  0.199095  0.341862  0.0980391], ... 
'String', Tlot  Selection', ... 

'Style','text', ... 

'Tag','StaticText3'); 
b  =  uicontrol('Parent',H_OPTIONS, ... 

'Units','nonnalized', ... 

'Callback',['ifOUT_COUNT==0,',... 

'global  filenames, filename3=get(H_vecfile,"String");end,',. 
'options_fcn  plots'],... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.591607  0.102564  0.287615  0.0693816], ... 
'String','Create  Plots', ... 

'Tag','Pushbutton3'); 
b  =  uicontrol(Tarent',H_OPTIONS, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.519774  0.362667  0.435028  0.570667], ... 

'Style', 'frame', ... 

'Tag','Framel'); 

b  =  uicontrol('Parent',H_OPTIONS, ... 

'Units','normalized', ... 

■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.0451977  0.0826667  0.440678  0.850667], ... 
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•Style', 'frame', ... 

Tag',’Frame2'); 

b  =  uicontrol('Parent',H_OPnONS, ... 
'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], 
'Position',[0.5 16888  0.0799397  0.432958  0.25641], ... 
•Style', 'frame', ... 

'Tag','Frame3'); 

b  =  uicontrol('Parent',H_OPTIONS, ... 

'Callback', 'options_fcn  back', ... 
'Units','normalized', ... 

'FontSize',12, ... 

TontWei^t','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Tosition',[0.0809793  0.112  0.178908  0.088], ... 
'String','«  Back', ... 

'Tag','Pushbuttonl  •) ; 
b  =  uicontrol('Parent',H_OPTIONS, ... 
'Callback','options_fcn  cont', ... 

'Units','nonnalized', ... 

'FontSi2e',12, ... 

'FontWeight','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], 
'Position',[0.286252  0.112  0.177024  0.088], ... 
'String','Continue  »', ... 

'Tag','Pushbutton  1  •); 
switch  OUT_COUNT 
case  0 

if  get(H_checkl,'Value')==0 
set(H_printin,'Enable','off') 
end 

if  get(H_check2,'Value')==0 
set^_printout,'Enable','off') 
end 

if  get(H_check3,'Value'>=0 
set(H_printvec,'Enable','oflf') 
end 
end 

assignin('base','H_PSCA',H_PSCA); 

assignin('base','H_PRDA',H_PRDA); 

assignin('base','H_CIM',H_CIM); 

assignin('base','H_CID',H_CID); 

assignin('base','H_RTB',H_RTB); 

assignm('base','H_EJANRAD',H_EJANRAD); 

assignin('base','H_printm',H_prmtin); 

assignin('base','H_printout',H_piintout); 

assignin('base','H_printvec',Hjprintvec); 

assignin('base','H_inputfile',H_inputfile); 

assignm('base','H_outputfile',H_outputfile); 

assignin(base','H_vecfile',H_vecfile); 


155 


APPENDIX  T.  OPTIONS  FCN.M 


Switchyard  Callback  function  for  options,  m  GUI  function. 


function  options_fcn(Action) 

%  Switchyard  Callback  fimction  for  options.m 
%  JANRAD  98  VERSION  5.0 

global  H_OPTIONS  H_PSCA  H_PRDA  H_CIM  H_CID  H_RTB  H_E JANRAD  ... 
H_printin  H_printout  H_printvec  PICK  S  PERF  INPUT  NAME... 
S_MATR_VEC  Hjvecfile  print_templ  filenames  H_r_VEC 


condl=get(H_PSCA, 'Value'); 

cond2=get(H_PRDA,'Value'); 

cond3=get(H_CIM,'Value'); 

cond4=get(H_CID,'Value'); 

cond5=get(H_RTB,'Value'); 

cond6=get(H_EJANRAD, 'Value'); 

ifnargin 
switch  Action 
case  'h_psca' 

set(H_PSCA,'Value',l) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID;Value',0) 
set(H_RTB, 'Value', 0) 
set(H_EJANRAD,'Value’,0) 
case  'h_prda' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',l) 
set(H_CIM, 'Value', 0) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD,'Value',0) 
case  'h_cim' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',l) 
set(H_CID,'Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD,'Value',0) 
case  'h  cid' 

set(H_PSCA'Value',0) 

set(H_PRDA,'Value',0) 

set(H_CIM,'Value',0) 

set(H_CID,’Value',l) 
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set(H_RTB,'Value',0) 
set(H_EJANRAD,'Value’,0) 
case  'h_rtb' 

set(H_PSCA, 'Value', 0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID,'Value',0) 
set(H_RTB, 'Value',  1) 
set(H_EJANRAD,'Value',0) 
case  'hejanrad' 

set(H_PSCA,'Value',0) 
set(H_PRDA,'Value',0) 
set(H_CIM,'Value',0) 
set(H_CID,’Value',0) 
set(H_RTB,'Value',0) 
set(H_EJANRAD,'Value',  1) 
case  'back' 

close  (H_OPnONS) 
peifonnance_output 
case  'print' 

if  get(H_printin,'Value')==l, 
eval(['!copy  ,print_temp,  Iptl']) 
delete  print_temp 
end 

if  get(H_printout,'Value'>==l, 
eval(['!copy  ,print_templ,  Iptl']) 
delete  printtempl 
end 

if  get(H_printvec, 'Value')— 1 
eval(rioad  ',get(H_vecfile,'String')]); 
diaiy  print_temp2 
diaiy  off 

delete  print  templ 
diary  print_temp2 

r,  Reff,  psi,  vi,  theta,  betat,  alpha,  Tpsi,  Npsi,  Mpsi,  DMpsi,  dT,  dN,  dM,  dD,  cblade,  CL,  CD, 
diary  off 

eval(['!copy  /b  ,print_temp2,  Iptl']) 
delete  print_temp2 
end 

case  'plots' 
ifPICK==0 
no_iteration_plots 

set(H_r_VEC,'String',nuin2str(S_MATR_VEC.r/S_PERF_INPUT.R)) 

elseifPlCK==l 

airspeed_iteration_plots 

elseifPlCK==2 

altitude_iterationjplots 

elseifPICK==3 

grosswt_iteration_plots 

elseifPICK==4 

bladetwist_iteration_plots 

elseifPICK==5 

bladetaperratio_iteiation_plots 

elseifPICK==6 
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staitoftaper_iteration_plots 

elseifPICK==7 

\vingspanarea_iteration_plots 

elseifPICK==8 

rotorraditerationjplots 

elseifPICK==9 

rotorspd_iteration_plots 

end 

close  (H_OPTIONS) 
case  'cont* 
if  condl==l 
stabili1y_and_control 
elseif  cond2==l 
rotor_dynamics 
elseif  cond3==l 
close  (H_OPTIONS) 

S_PERF_INPUT.Vinf=S_PERF_INPUT.Vinf'1.68894444; 
S_PERF_INPUT.twist=-S_PERF_INPUT.twist*57.3; 
S_PERF_INPUT.thetao=S_PERF_INPUT.thetao*57.3; 
iteration_method 
elseif  cond4==l 
close  (H_OPnONS) 
perfonnance_input 
elseif  cond5==l 
close  (H_OPTIONS) 
janxad98 
elseif  cond6==l 
quitgui 
else, 

errorCSomething  is  wrong  in  Options  Function') 
end 

case  'return' 
close  all 
janrad98 
case  'deltainput' 
close  (H_OPTIONS) 
performanceinput 
case  'quit' 
quit_gui 
case  'about' 
aboutjanrad 
end 
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APPENDIX  U.  BLADE  ELEMENT.M 


This  file  creates  a  GUI  screen  allowing  uneven  blade  element  and  nonlinear  twist  entries. 


fimction  blade_element() 

%  GUI  Window  to  create  user  defined  blade  element  vector 
%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  blade_element 

global  S_PERF_INPUT  H_BLD_EL  NEW_r  Reff  r_HOLD  RADSPC_VAL  NL_TWIST_VAL 
NEW_AUX_VAL... 

FIX_TPP_VAL  NEW_TPP  H_EL_1 

imstructure 

COUNT=l; 

rho=.002377*(-.00003  l*PA+(-.002*temp+l.  1 18)) 

%  ***  first  guess  at  rotor  profile  drag  ( H  force)  *** 
if  Vinf  <  16.9, 

Drotoi=0; 

else 

Drotoi=Vinf*(rho/.002377); 

end 

q=0.5*rho*Vinf'2; 

Adisk=pi*R''2; 

Vtip=omega*R; 
temp_rank=tempt-459.67; 
spd_snd=49. 1  *sqrt(temp_rank); 

%if  (Vtip+Vinf)/spd_snd>0.87 
%  spd_max=0.87*spd_snd 
%  Vtip=spd_max-Vinf 
%  omega=Vtip/R 

%end 

%  Section  added  to  set  wing  lift  at  a  certain  value  and  determine 
%  the  required  wing  CL  %%  This  is  for  compound  helos%% 
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%ifViiif>=160*1.68781 
%  perclifl=  0.7; 

%  Lwing=GW*percIift 
%  CLwing=  Lwing/(q*Swing) 
%else 

%  Lwing=q*CLwing*Swing; 
%end 

Dfuse=q*Afh; 


CDwing=CDowing+(CLwing''2/(ewing*pi*(bwing^2/Swing))); 

CDhoriz=CDohoriz+(CLhoriz^2/(.8*pi*(bhoriz''2/Shoiiz))); 

CDvert=CDovert+(CLvert''2/(.8*pi*(bvert^2/Svert))); 

Dwing=q*CDwing*Swing; 

Dhoriz=q*CDhoriz*Shoriz; 

Dvert=q*CDvert*  Svert; 
ifNEW_AUX_VAL==l 
Dftotal=ODfuse+Dwing+Dhoriz+Dvert); 
ifViiif<16.9 
Taux=0; 
else 

Taux=Dfitotal; 

end 

S_PERF_INPUT.Taux=Taux; 

S_USER_INPUT.Taux=Taux; 

else 

Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux; 

end 

%Lwing=.6*GW 

%ifS_USER_INPUT.Vinf<80  %80kts 
%  Taux=0; 

%elseif  S_USER_INPUT.Vinf>=140 
%  Taux=Dftotal; 

%else 

%  Taux=((Vinf-135.02479)/100)*.98747*Dftotal; 

%end 

Lwing=q*CLvving*  Swing; 

Llioriz=q*CLhoriz*Shoriz; 

Lvert=q*CLvert*Svert; 

Lftotal=Lwing+Llioriz+Lvert; 
ifFIX_TPP_VAL==l 
alpliaT=NEW_TPP;  %set  tip  path  angle 

else 

alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

end 

%alphaT80=0; 

%if  S_USER_INPUT.  Vinf<80 
%  alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

%elseif  S_USER_INPUT.  Vinf==80 
%  alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 
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%  alphaT80=alphaT; 

%elseif  S_USER_INPUT.Vmf>=140 
%  alphaT=0; 

%else 

%  alphaT=(l-(((Viiif-135.02479)/100)*.98747))*alphaT80; 

%end 

%alphaT 

mu=ViiiP‘cos(alphaT)A^tip; 

%%%  account  for  vertical  drag  on  wing  and  horizontal  tail  %%% 
iftaildisk=l 

Afvl=Afv+3*(Swing+Shoriz);  %  this  assumes  a  vertical  Cd  of  1.2  for  the 
elseif  taildisk— 2  %  wing  and  horiz  tail  and  a  vertical  Cd  of 

Afvl=Afv+3*Swing  %  0.4  for  the  fuselage  (i.e.  1.2/.4  =  3) 
end  %  thus  making  wing/tail  effectively  larger 

%  when  hvr  thrust  calc  using  Cd=0.4 


ifVinf<16.9, 

T=(l+(0.4*Afvl/Adisk))*GW; 

else 

T=(GW-Lftotal)/cos(alphaT) 

end 

CT=T/(Adisk*rho*Vtip'^2); 

B=l-(sqit(2*CT)/b); 

Reff^B*R; 

r_HOLD=0; 

H_BLD_EL  =  figureCUnitsVnormalized', ... 

'Color', [0.8  0.80.8],... 

'Colorniap',matO, ... 

'Name','Blade  Element', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position',[0.0478516  0.0690104  0.889648  0.877604], ... 
'Tag','Figl'); 

H  OPT  =  uimenuCParent',H_BLD_EL, ... 

'Label','JAISIRAD  Options', ... 

'Tag','uimenur); 
c  =  uimenuCParent',H_OPT, ... 

'Callback','blade_element_fcn  quit', ... 

'Label', 'Quit  JANRAD', ... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenuCParent',H_OPT, ... 

'Callback','blade_element_fcn  return', ... 

'Laber,'Retum  to  Beginning', ... 

'Tag', 'JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',H_OPT, ... 

'Callback','blade_element_fcn  delta_mput', ... 
'Label','Change  Input  Parameters', ... 
'Tag','Subuimenul'); 
c  =  uimenuCParent',H_OPT, ... 
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'Callback','blade_element_fcn  about', ... 

'Label', 'About  Jaiuad  98  ...', ... 

'Separator','on', ... 

'Tag','Subuimenur); 
d  =  uicontrol(Tarent',H_BLD_EL, ... 

'Uiuts','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'HorizontalAligmnent','left', ... 

'Position',[0.0043956  0.799703  0.984615  0.189911], ... 
'String',niat2, ... 

'Style', 'text', ... 

'Tag’,'StaticTextr); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroimdColor', [0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'FontWeight', 'normal', ... 

'Position',[0. 116484  0.749258  0.217582  0.041543], ... 
'String',  ['Grip  Ratio  = ',  num2str(S_PERF_INPUT.grip/R)], . 
'Style','text’, ... 

'Tag','StaticText4'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Units','normalized', ... 

'FontSize',12, ... 

'Position’,[0.528571  0.747774  0.347253  0.041543], ... 
'String', [Efif  Blade  Radius  Ratio  = num2str(Ref^)], ... 
'Style','text', ... 

'Tag','StaticText4'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nornialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position', [0.164835  0.695846  0.116484  0.0459941], ... 
'String', 'Radius  (r/R)', ... 

'Style','text’, ... 

'Tag’,'StaticText2'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.00659341  0.695846  0.145055  0.0445104], ... 
'String', 'Blade  Element', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',10, ... 

'Position',[0.298507  0.696481  0.116205  0.0454545], ... 
'String',Twist  (deg)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
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d  =  mcontrol('Parent',H_BLD_EL, ... 

'UnitsVnormalized', ... 

■BackgroundColor’, [0.752941 0.752941  0.752941], ... 

'FontSi2e',12, ... 

’Position’,[0.010989  0.642433  0.134066  0.0489614], ... 

■String','!',... 

'Style','text', ... 

'Tag','StaticText3'); 

H_EL_1  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position',[0. 164835  0.639466  0.117582  0.0519288], ... 

'String’,S_PERF_INPUT.grip/R,. .. 

'Style','edit', ... 

'Tag',EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.298507  0.63783  0.117271  0.0513196], ... 
'Callback',['NL_TWIST(l)=str2num(get(gcbo,"String"));',... 
'set(gcbo,"String",NL_TWIST(l)),NL_TWlST_VAL=l;'], ... 

'Style','edit', ... 

Ta^,EditTextl’); 

d  =  uicontrol(Tarent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroiindColor',[0.752941  0.752941  0.752941], ... 

TontSize',12, ... 

'Position',[0.0142857  0.577151  0.131868  0.0459941], ... 

'String','2', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrolCParent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback',['NEW_r(l)=str2num(get(H_EL_l,"String"));',... 
'NEW_r(2)=str2nuni(get(gcbo,"String"));',... 
'set(gcbo,"String",NEW_r(2)),RADSPC_VAL=l;'], ... 

'Position’,[0. 164835  0.571217  0.117582  0.0519288], ... 

'Slyle','edit', ... 

'Tag',EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Umts','noimalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','NL_TWIST(2)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(2))', 
Tosition',[0.298507  0.573314  0.117271  0.0513196], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941 0,752941], ... 

'FontSize',12, ... 

Tosition',[0.0142857  0.514837  0.132967  0.0459941], ... 

'String','3',... 

'Style', 'text', ... 

'Tag','StaticText3'); 
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d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units'/noraialized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback',[... 

'NEW_r(3)=str2nuni(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(3))’],... 

'Position',[0. 164835  0.508902  0.117582  0.0519288], ... 

•Style',’edif, ... 

Tag'.'EditTextr); 

b  =  mcontrol('Parent',H_BLD_EL, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'CalIback','NL_TWIST(3)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(3))’, 
■Position',[0.298507  0.508798  0.117271  0.0513196], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.0142857  0.451039  0.131868  0.0489614], ... 

'String','4', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  iiicontrol('Parent',H_BLD_EL, ... 

'Umts','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback',[... 

'MEW_r(4)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(4))'],... 

'Position',[0. 164835  0.448071  0.117582  0.0519288], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Callback','lSIL_TWIST(4)=str2nuni(get(gcbo,"String"));set(gcbo,"Strmg",NL_TWIST(4))', 
'Position',[0.298507  0.445748  0.117271  0.0513196], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position', [0.0142857  0.384273  0.131868  0.0504451], ... 

'Strmg','5', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units'.'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback',[... 

'NEW_r(5)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(5))'], ... 

'Position',[0. 164835  0.382789  0.117582  0.0534125], ... 
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’Style’,'edit', ... 

'Tag'.'EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units'/nonnalized', ... 

‘BackgroundColor’,[l  1  1], ... 

■Callback^'NL_TWIST(5)==st^2num(get(gcbo,'■St^ing''));set(gcbo,''String",NL_TWIST(5))', 
■Position',[0.298507  0.384164  0.117271  0.0527859], ... 

■Style’.'edit', ... 

Tag’.'EditTextl’); 

d  =  uicontrol(Tarent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 

’FontSize',12, ... 

’Position',[0.0153846  0.321958  0.131868  0.0474777], ... 

’String','6', ... 

'Style','text', ... 

TagVStalicTexO’); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Uiiits','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback',[... 

'NEW_r(6)=str2niiin(get(gcbo,"String"));',... 

'set(gcbo,"String",lSIEW_r(6))'], ... 

■PositionMO.  164835  0.317507  0.117582  0.0534125], ... 

’Style’,'edit’, ... 

Tag','EditTextl'); 

b  =  uicontrol(Tarent',H_BLD_EL, ... 

’Units','normalized’, ... 

'BackgroundColor',[l  1 1], ... 

'Callback\m_TWIST(6)=str2num(get(gcbo,''String"));set(gcbo,’'Stiing’',NL_TWIST(6))', 
Tosition',[0.298507  0.318182  0.117271  0.0527859], ... 

'Style','edit', ... 

Tag’,'EditTextr); 

d  =  uicontrol(Tarent',H_BLD_EL, ... 

Units','nonnalized', ... 

■BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

■Position',[0.0142857  0.259644  0.131868  0.0474777], ... 

•String','?, ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback',[... 

'NEW_r(7)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(7))'], ... 

Tosition',[0. 164835  0.256677  0.117582  0.0534125], ... 

'Style','edit', ... 

Tag'.'EditTextl'); 

b  =  uicontrol(Tarent',H_BLD_EL, ... 

Units'j'nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','NL_TWIST(7)=str2num(get(gcbo,"String"));set(gcbo,"String”,NL_TWlST(7))', 
'Position',[0.298507  0.258065  0.117271  0.0527859], ... 
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’Style’, 'edit', ... 

’Tag’,'EditTextr); 

d  =  iucontrol(’Parent’,H_BLD_EL, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.0153846  0.197329  0.132967  0.0474777], ... 

’Strmg','8', ... 

'Style', 'text', ... 

'Tag','StaticText3'); 
d  =  mcontrol(Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Callback',[... 

'NEW_r(8)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"Stiing",NEW_r(8))'],... 

’Position',[0. 164835  0.192878  0.117582  0.0519288], ... 

'Style', 'edit', ... 

'Tag’,EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','NL_TWIST(8)=str2num(get(gcbo,"String"));set(gcbo,"String’',NL_TWIST(8))', 
'Position',[0.298507  0.193548  0.117271  0.0513196], ... 

'Style’,'edit', ... 

’Tag',EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.0142857  0.132047  0.131868  0.0459941], ... 

'Strmg','9', ... 

'Style’,'text', ... 

'Tag’,’StaticText3’); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nomialized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback',[... 

'NEW_r(9)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(9))’],... 

'Position’,[0. 164835  0.127596  0.117582  0.0519288], ... 

’Style','edit', ... 

’Tag',’EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor’,[l  1  1], ... 

'Callback',’NL_TWIST(9)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(9))', 
'Position',[0.298507  0.130499  0.117271  0.0513196], ... 

'Slyle','edit’, ... 

'Tag’,EditTextl'); 

d  =  uicontrol(Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position', [0.0138593  0.0674487  0.132196  0.0483871], ... 
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■String',’10', ... 

’Style'.'text’, ... 

’Tag’,'StaticText3’); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

Units'.'normalized', ... 

'BackgroimdColor',[l  1  1], ... 

'CaUback’,[... 

'NEW_r(10)=str2niim(get(gcbo, "String"));',... 

'set(gcbo,"String",NEW_r(10))’],... 

'Position',[0. 164835  0.0652819  0.117582  0.0519288], ... 

'Style','edit', ... 

'Tag’,'EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

Umts','normalized', ... 

'BackgroundColor',[l  1 1], ... 

’Callback’,'NL_TWIST(10)=slr2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(10))’, ... 
'Position',[0.298507  0.0674487  0.117271  0.0513196], ... 

'Style','edit', ... 

'Tag'.'EditTextl'); 

d  =  uicontrol(Tarent',H_BLD_EL, ... 

’Units','nonnalized’, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',10, ... 

'Position',[0.651648  0.695846  0.120879  0.0474777], ... 

'String'.'Radius  (r/R)', ... 

’Style','text', ... 

•Tag','StaticText2'); 
d  =  uicontrol(Tarent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

’FontSize',10, ... 

’Position’,[0.487912  0.697329  0.145055  0.0459941], ... 

'String'.'Blade  Element', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  iiicontrol('Parent',H_BLD_EL, ... 

'Units','noraialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',10, ... 

'Position', [0.794505  0.700297  0.116484  0.0445104], ... 

'String',Twist(deg)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
d  =  uicontrol(Tarent',H_BLD_EL, ... 

Umts','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.495604  0.64095  0.131868  0.0489614], ... 

'String','11', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nomialized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback',[... 
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'NEW_r(ll)=str2num(get(gcbo, "String"));',... 

'set(gcbo, "String", NEW_r(l  1))'], ... 

Position',[0.653445  0.63925  0.117954  0.0519481], ... 

'Style', 'edit', ... 

Tag','EditTextr); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','NL_TWIST(ll)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(ll))', 
'Position',[0.794505  0.64095  0.117582  0.0519288], ... 

’Style','edit', ... 

Tag','EditTextr); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

Position',[0.494505  0.577151  0.12967  0.0474777], ... 

'String','12', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'CaUback’,[... 

'NEW_r(12)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(12))'],... 

Position',(0.653846  0.578635  0.117582  0.0519288], ... 

'Style’,'edit', ... 

’Tag','EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','norinalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','NL_TWIST(12)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(12))', 
'Position',[0. 794505  0.577151  0.117582  0.0504451], ... 

'Style’,'edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units' ,'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

Position',[0.494505  0.513353  0.12967  0.0459941], ... 

'String','13', ... 

'Style','text', ... 

'Tag’,'StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback',  [... 

'NEW_r(13)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"String",NEW_r(13))'], ... 

Position',[0.653846  0.513353  0.117582  0.0519288], ... 

'Slyle','edit', ... 

'Tag'.'EditTextl'); 

b  =  uicontrol(Parent',H_BLD_EL, ... 

'Units','nonnali2ed', ... 
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'BackgroundColor',[l  11],... 

'Callback', 'NL_TWIST(13)=str2num(get(gcbo,"String"));set(gcbo,"Strmg",NL_TWIST(13))’, 
'Position', [0.794505  0.511869  0.117582  0.0519288], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position', [0.494505  0.449555  0.12967  0.0489614], ... 

'String','14', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

•CaUback',[... 

'NEW_r(14)=str2nuin(get(gcbo, "String"));',... 

'set(gcbo,''String'',NEW_r(14))'], ... 

Tosition',[0.653846  0.452522  0.117582  0.0519288], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback', 'NL_TWIST(14)=str2num(get(gcbo,''String''));set(gcbo,''Strmg'',NL_TWIST(14))', 
'Position',[0.794505  0.452522  0.117582  0.0504451], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.495604  0.385757  0.12967  0.0504451], ... 

'String','15', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nomialized', ... 

'BackgroundColor',  [1 1  1], ... 

'CaUback',[... 

’NEW_r(15)=str2num(get(gcbo,''String''));',... 

'set(gcbo,"String",NEW_r(15)),'], ... 

'Position', [0.653846  0.388724  0.117582  O.0534125], ... 

'Style',’edit', ... 

'Tag','EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units',’normalized', ... 

'BackgroundColor', [1  1  1], ... 

'Callback','NL_TWIST(15)=str2num(get(gcbo,''Stiing''));set(gcbo,''String’',NL_TWlST(15))', 
'Position',[0.795604  0.390208  0.117582  0.0534125], ... 

'Style','edit', ... 

'Tag’,'EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normali2ed', ... 
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'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.495604  0.321958  0.12967  0.0474777], ... 

•String', '16', ... 

'Slyle','text', ... 

'Tag’,'StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback’,[... 

'NEW_r(16)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"Strmg",NEW_r(16))'],... 

’Position',[0.653846  0.323442  0.117582  0.0504451], ... 

'Style’,'edit', ... 

'Tag','EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'CaUback','NL_TWIST(16)=str2num(get(gcbo,"String"));set(gcbo,"String",NL_TWIST(16))', 
’Position',[0.794505  0.324926  0.117582  0.0519288], ... 

'Style','edit', ... 

'Tag’.'EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position', [0.495604  0.261128  0.12967  0.0474777], ... 

'String','17', ... 

'Style','text', ... 

'Tag','StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback',[... 

'NEW_r(17)=str2num(get(gcbo,"String"));’,... 

'set(gcbo,"String",NEW_r(  17))'], ... 

'Position', [0.653846  0.262611  0.117582  0.0534125], ... 

'Style’,'edit', ... 

'Tag',EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','NL_TWIST(17)=str2num(get(gcbo,''Stiing''));set(gcbo,''String'',NL_TWIST(17))', 
'Position',[0.794505  0.264095  0.117582  0.0534125], ... 

'Style','edit', ... 

'Tag',EditTextl'); 

d  =  iiicontrol('Parent',H_BLD_EL, ... 

'Units','nomialized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 

'FontSize',12, ... 

'Position', [0.494505  0.200297  0.12967  0.0459941], ... 

'String','18', ... 

'Style','text', ... 

'Tag','StaticText3’); 
d  =  uicontrol('Parent',H_BLD_EL, ... 
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'UnitsVnonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'CaUback',[... 

'NEW_r(18)=str2num(get(gcbo,"String"));',... 

'set(gcbo,"Strmg",NEW_r(18))'],... 

'Position’,[0.653846  0.198813  0.117582  0.0519288], ... 

'Style',’edit', ... 

Tag^-EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units’, 'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','NL_TWIST(18)=str2niim(get(gcbo,''Strmg'’));set(gcbo,''String’’,NL_TWIST(18))’, 
'Position',[0.794505  0.20178  0.117582  0.0504451], ... 

’Style','edit', ... 

’Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize’,12, ... 

'Position’,[0.495604  0.137982  0,12967  0.0459941], ... 

'String’,’19’, ... 

’Style','text', ... 

'Tag’,'StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

’BackgroundColor',[l  1 1], ... 

'Callback',[... 

’NEW_r(19)=str2num(get(gcbo,"Strmg"));',... 

'set(gcbo,"String",NEW_r(19))'],... 

’Position’,[0.653846  0.137982  0.117582  0.0519288], ... 

'Style',’edit', ... 

'Tag'.'EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','NL_TWIST(19)=str2num(get(gcbo,’'String’’));set(gcbo,''Strmg’',NL_TWIST(19))’, 
Tosition’,[0.794505  0.139466  0.117582  0.0519288], ... 

’Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

’Units','nonnalized’, ... 

’BackgroundColor’, [0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

’Position',[0.494505  0.0712166  0.130769  0.0504451], ... 

’String’,'20', ... 

’Style',’text', ... 

’Tag',’StaticText3'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units','normalized', ... 

'BackgroimdColor’,[l  1 1], ... 

'CaUback',[... 

'NEW_r(20)=str2num(get(gcbo, "String"));',... 

’set(gcbo,"String".NEW_r(20))'], ... 

’Position’,[0.653846  0.0727003  0.117582  0.0519288], ... 

’Style',’edit’, ... 
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'Tag’.EditTextl'); 

b  =  uicontrol('Parent',H_BLD_EL, ... 

Units', 'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'CaIlback','NL_TWIST(20)=str2num(get(gcbo;"String"));set(gcbo,"String",NL_TWIST(20))', ... 
'Position', [0.794505  0.0771513  0.117582  0.0504451], ... 

'Style','edit', ... 

'Tag','EditTextl'); 

d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units', 'nonnalized', ... 

'Callback','blade_element_fcn  back', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0. 153677  0.00593472  0.198683  0.0548961], ... 

'String', '«  Back', ... 

'Tag','Pushbutton2'); 
d  =  uicontrol('Parent',H_BLD_EL, ... 

'Units', 'normalized', ... 

'Callback',[... 

'ifRADSPC_VAL==l,S_PERF_INPUT.nbe=length(NEW_r);end,',... 

'blade_element_fcn  cont'],... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'FontWeight',’bold', ... 

'Position',[0.649835  0.0074184  0.203074  0.0563798], ... 

'String','Continue', ... 

'Tag','Pushbuttonl'); 

assignin('base','Reff,Reff); 
assignin(base','H_EL  r,H_EL_l); 
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APPENDIX  V.  BLADE  ELEMENT  FCN.M 


Switchyard  Callback  function  for  blade  element.m  GUI  function. 


function  blade_element_fcn(  Action) 

%  Switchyard  Callback  function  for  blade_element.m 
%  JANRAD  98  VERSION  5.0 

global  S_PERF_1NPUT  H_BLD_EL  NEW_r  Reff  r_HOLD  RADSPC_VAL  NL_TWIST_VAL  H_MESH 
H_POP... 

AF_MAIN  AF_TIP  MESH_VAL  MESH_STA  NEW_AUX_VAL  FIX_TPP_VAL  NEW_TPP 

if  nargin, 
switch  Action 
case  'return' 
jaiuad98 

close(H_BLD_EL) 
case  'quit' 
quit_gui 
case  'about' 
aboutjanrad 
case  'deltainput' 
perfonnance_input 
if  get(H_POP,'Value')=7 
set(H_MESH,'Enable','on') 
end 

close(H_BLD_EL) 
case  'cont' 
count=0; 

for  i=l  :length(NEW_r) 
ifNEW_r(i)>(RefiOS_PERF_INPUT.R) 
countFCOunt+1; 
end 
end 

ifcount>=l 

r_waming 

else  iterationmethod 
close  (H_BLD_EL) 
end 

case  'back' 
performance_input 
if  get(H_POP,' Value')=7 
set(H_MESH, Enable', 'on') 
end 

close(H_BLD_EL) 

end 

end 


175 


APPENDIX  W.  COMPOUND  TAILROTOR.M 


This  file  creates  a  figure  window  allowing  insertion  of  compound  helicopter  and  tail  rotor 
parameters 


function  compound_tailrotor() 

%  GUI  Window  to  enter  compound  helo  and  tail  rotor  parameters 
%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  compound_tailrotor 

global  H_COMP_TR  H_AUX_E_DR  H_FIX_TPP  NEW_AUX_VAL  NEW_TPP  S_USER_INPUT 
S_PERF_INPUT  COUNT ... 

MESH_VAL 

unstracturel 

COUNT=l; 

H_COMP_TR  =  figureCUnitsVnormalized', ... 

'Color',[0.8  0.8  0.8], ... 

'Colormap',mat0, ... 

'NameVCompound  Helicopter  &  Tail  Rotor  Parameters', ... 

'Createfcn'.'global  S_CON_TR_INPUr,... 

'NumberTitle','ofT, ... 

'PointerShapeCData',matl, ... 

'Position',[0.00878906  0.0690104  0.899414  0.852865], ... 

’Tag','Figure'); 

d  =  uimenuCParent',H_COMP_TR, ... 

'Label’,'JANRAD  Options', ... 

'TagVuimenul'); 
c  =  uimenuCParent',d, ... 

'Callback','compound_tailrotor_fcn  quit', ... 

'Label'.'Quit  JANRAD',... 

'Tag','Subuimenur); 
c  =  uimenuCParent',d, ... 

'Callback','compoimd_tailrotor_fcn  return', . . . 

'Label'.'Retum  to  Begining', ... 

'Tag'.'Subuimenul'); 
c  =  uimenuCParent',d, ... 

'Callback','compound_taiIrotor_fcndelta_mput',... 

'Laber,'Change  Input  Parameters', ... 

Tag','Subuimenur); 
c  =  uimenuCParent'.d, ... 

'Callback','compound_tailrotor_fcn  about',... 

'Label',' Ateut  Janrad  98  ...', ... 
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'Separator', 'on',... 

'Tag','Subuimenur); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',10, ... 

'Position',[0.04 12595  0.833588  0.408252  0.149618], ... 

'String','COMPOUND  HELICOPTER  OR  COMPOUND  HELICOPTER  WITH  AUXILIARY 
THRUST', ... 

'Style', 'text', ... 

'Tag','StaticText  1'); 

H_FIX_TPP  =uicontrolCParent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 

'Callback','global  FDC_TPP_VAL', ... 

'Position',[0.04 12595  0.743511  0.309446  0.0625954], ... 

'String','SELECT  TO  FIX  TIP  PATH  PLANE  ANGLE', ... 

'Style', 'checkbox', ... 

'Tag','Checkbox  1'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0401737  0.674809  0. 184582  0.0473282], ... 

'String',Tip  Path  Plane  Angle  =  ',... 

'Style','text', ... 

'Tag','StaticText2'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback’,’global  NEW_TPP,NEW_TPP=str2num(get(gcbo,"Stiing’'));', ... 

'Position',[0.233442  0.671756  0.0879479  0.0503817], ... 

'Style', 'edit', ... 

'Tag','EditTextl'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.327904  0.671756  0.0705755  0.0473282], ... 

'String','radians', ... 

'Style','text’, ... 

'Tag','StalicText3'); 

H_AUX_E_DR  =  uicontrol('Parent'JI_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'CaUback','global  NEW_AUX_VAL,', ... 

'Position',[0.019544  0.557252  0.450597  0.0717557], ... 

'String','SELECT  TO  SET  AUXILIARY  THRUST  EQUAL  TO  TOTAL  DRAG', ... 
'Style','checkbox', ... 

'Tag','Checkbox2'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnaIized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0282302  0.480916  0.42671  0.0610687] . 

'String',inat2, ... 

'Style','text', ... 

Tag','StaticText4'); 
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b  =  uiconlrol('Parent',H_COMP_TR, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.00977199  0.436641  0.473398  0.555725], ... 
'Style','fi^e', ... 

'Tag',’Framel'); 


%%%%%%%%%%%%%%%%%%%%%%%%% 
b  =  uicontrol('Paren.t',H_COMP_TR, ... 

'Uiuts','normalized', ... 

’BackgroundColor’, [0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'Position',[0.565689  0.91145  0.407166  0.070229], ... 

'Strmg',TAIL  ROTOR  SIZING  PARAMETERS’, ... 

'Style','text', ... 

’TagVStaticText5'); 

b  =  uicontroI('Parent',H_COMP_TR ... 

'Umts','noniialized’, ... 

'BackgromidColor',[0.752941  0.752941  0.752941], ... 

'Position’,[0.565689  0.833588  0.407166  0.0717557], ... 

'String','Note:  Fill  In  The  Information  Pertinent  To  Your  Desired  Tail  Rotor  Type', ... 
’Style',’text', ... 

'Tag',’StaticText6'); 

b  =  uicontrol(Parent',H_COMP_TR, ... 

'Units','nomialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontWeight','bold', ... 

Position',[0.661238  0.775573  0.241042  0.0427481], ... 

’String','CONVENTIONAL  TAIL  ROTOR’, ... 

’Style’,’text’, ... 

’Tag’,'StaticTextr); 

b  =  mcontroI('Parent',H_COMP_TR, ... 

’Units','nonnalized’, ... 

’BackgroundCoIor’,[0.752941  0.752941  0.752941], ... 

’Position',[0.564604  0.723664  0.102063  0.0305344], ... 

'String’,’Radius  (ft)’, ... 

'Style','text’, ... 

’Tag’,’StaticTextl0’); 
b  =  uicontrol(Parent’,H_COMP_TR, ... 

'Units’,’normalized', ... 

’BackgroundColor’, [1  1  1], ... 

'Position’,[0.679696  0.722137  0.0760043  0.0305344], ... 

’Callback',’CON_R=get(gcbo,"String");S_USER_INPUT.CON_R=str2num(CON_R);’,... 

'String’,CON_R,... 

'Style’,’edit', ... 

’Tag’,'EditText2'); 

b  =  uicontrol(Tarent’,H_COMP_TR, ... 

’Units’,'nonnalized’, ... 

’BackgroundColor’,[0.752941  0.752941  0.752941], ... 

’Position',[0.774159  0.717557  0.108578  0.0366412], ... 

'String','Blade  Chord  (ft)', ... 

'Style’,’text', ... 

■Tag’,’StaticTextl3’); 
b  =  uicontrolCParent',H_COMP_TR, ... 

Units','noiniali2ed’, ... 
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'BackgroundColor',[l  1  1], ... 

'Position',[0.897937 0.719084  0.0781759  0.0305344], ... 
'CallbackVCON_chord=get(gcbo,"String'');S_USER_INPUT.CON_chord=str2num(CON_chord);',... 
'String',CON_chord,... 

'StyleVedit', ... 

’Tag','EditText4'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',(0.752941  0.752941  0.752941], ... 

'Position', [0.562432  0.658015  0.103149  0.0305344], ... 

'String','#  of  Blades', ... 

'Style','text', ... 

'Tag','StaticTextir); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.679696  0.656489  0.0770901  0.0305344], ... 
'Callback','CON_b=get(gcbo,"String");S_USER_INPUT.CON_b=str2mim(CON_b);',... 
'Strmg',CON_b,... 

'Style','edit', ... 

'Tag',EditText3'); 

b  =  uicon1rol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.774159  0.638168  0.112921  0.059542], ... 

'String','  Rotor  Velocity  (rad/sec)', ... 

'Style','text', ... 

'Tag','StaticTextl2'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.897937  0.651908  0.0770901  0.0305344], ... 
'Callback','CON_omega=get(gcbo,"Slring");S_USER_INPUT.CON_omega=str2num(CON_omega);',... 
'String',CON_omega,. .. 

'Style','edit', ... 

'Tag',EditText5'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.564604  0.596947  0.103149  0.0305344], ... 

'String', 'Blade  cd', ... 

'Style', 'text', ... 

'Tag','StaticTextl4'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroimdColor',[l  1  1], ... 

’Position',[0.679696  0.593893  0.0770901  0.0305344], ... 
'Callback','CON_cd=get(gcbo,"String");S_USER_INPUT.CON_cd=str2num(CON_cd);',... 
'String',CON_cd,... 

'Style','edit', ... 

'Tag','EditText6'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nomialized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position', [0.773073  0.572519  0.114007  0.0534351], ... 
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'String’.Tail  Moment  Arm  (ft)', ... 

’Style','text', ... 

Tag','StaticTextl5'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

Units'.'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position’,[0.897937  0.584733  0.0770901  0.0305344], ... 
'CaIlback’,'CON_lt=get(gcbo,"String");S_USER_INPUT.CON_lt=str2num(CON_lt) 
'String',CON_lt,... 

'Style','edit’, ... 

'Tag','EditText7'); 

%%%%%%%%%%%%%%%%%%%%%%% 
b  =  mcontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

’BackgroundColor’,[0.752941  0.752941  0.752941], ... 

'FontWeight','bold', ... 

Tosition',[0.662324  0.494656  0.241042  0.0427481], ... 

’Strmg‘,TAN-IN-TAIL', ... 

•Style'.'text’, ... 

'Tag','StaticText8'); 

b  =  mconlrol('Parent',H_COMP  TR, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.565689  0.454962  0.102063  0.0305344], ... 

'Strmg','Radius  (ft)', ... 

•Style','text', ... 

’Tag','StaticTextl0'); 
b  =  viicontrol('Parent',H_COMP_TR, ... 

Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.680782  0.451908  0.0792617  0.0305344], ... 
'Callback','S_FIT_TR_INPUT.FIT_R=str2num(get(gcbo,"String"));',... 

'Style','edit', ... 

'Tag','EditText2'); 

b  =  uicontrol('Parent',H_COMP_TR,  ... 

Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.774159  0.424427  0.112921  0.059542], ... 

'String','  Rotor  Velocity  (rad/sec)', ... 

•Style’,'text', ... 

'Tag','StaticTextl2'); 
b  =  uicontrol(Tarent',H_COMP_TR, ... 

'Units','noimalized', ... 

'BackgroundColor',[l  1 1], ... 

Tosition',[0.897937  0.441221  0.0770901  0.0305344], ... 
'CaUback','S_FIT_TR_INPUT.FIT_omega=str2num(get(gcbo,"String"));',... 
'Style','edit', ... 

'Tag','EditText5'); 

b  =  uicontrol(Tarent',H_COMP_TR, ... 

Units','normalized', ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 

'Position',[0.566775  0.384733  0.103149  0.0305344], ... 

'Strmg','Blade  cd', ... 

•Style',’text', ... 

Tag','StaticTextl4'); 
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b  =  uicontrol(’Parent',H_COMP_TR, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position',[0.681868  0.383206  0.0781759  0.0320611], ... 

'Callback', 'S_FIT_TR_INPUT.FIT_cd=str2num(get(gcbo, "String"));',... 
'Slyle','edit', ... 

'Tag','EditText3'); 

b  =  uicontrol('Parent',H_COMP  TR, ... 

'Units','nomialized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position', [0.771987  0.363359  0.114007  0.0534351], ... 

'String', Tail  Moment  Arm  (ft)', ... 

'Style’,'text', ... 

Tag','StaticTextl5'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position',[0.896851  0.375573  0.0770901  0.0305344], ... 
'Callback','S_Frr_TR_lNPUT.FlT_lt=str2num(get(gcbo,"String"));’,... 
'Style', 'edit', ... 

'Tag',’EditText7'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.566775  0.331298  0.103149  0.0305344], ... 

'String','Solidity', ... 

'Style','text', ... 

Tag','StaticTextl4'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1 1], ... 

'Position', [0.681868  0.329771  0.0781759  0.0320611], ... 
'Callback','S_FlT_TR_lNPUT.Frr_signia=str2num(get(gcbo,"String"));',... 
'Slyle','edit', ... 

'Tag’,'EditText3'); 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontWeight’.’bold', ... 

'Position', [0.663409  0.259542  0.239957  0.0412214], ... 
'String','NOTAR', ... 

'Style','text', ... 

'Tag','StaticText9'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units’,'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.567861  0.21374  0.102063  0.0305344], ... 
'String', 'Diameter  (ft)', ... 

'Style','text', ... 

'Tag’,'StaticTextlO'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 
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'BackgroundColor',[l  1  1], ... 

'Position’,[0.677524  0.21374  0.0770901  0.0320611], ... 
'Style',’edit', ... 

'Tag','EditText2'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position',[0.773073  0.20916  0.108578  0.0381679], ... 
'String','RPM', ... 

'Style','text', ... 

'Tag','StaticTextl3'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor', [1  1  1], ... 

'Position’,[0.900109  0.210687  0.0781759  0.0305344], ... 
'Style','edit', ... 

'Tag','EditText4’); 

b  =  uicontrol('Parent',H_COMP  TR, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position’,[0.567861  0.145038  0.103149  0.0320611], ... 
'String',’#  of  Blades', ... 

’Style','text', ... 

'Tag','StaticTextll'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units’,'nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Position*,[0.677524  0.143511  0.0770901  0.0335878], ... 
'Style','edit', ... 

'Tag','EditText3'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.770901  0.128244  0.112921  0.0625954], ... 
'String','  ’ITtmister  Exit  Area  (ft''2)', ... 

'Style','text', ... 

'Tag',’StaticTextl2'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units’,'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.900109  0.141985  0.0770901  0.0320611], ... 
'Style',’edit', ... 

’Tag',’EditText5’); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normaIized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position’,[0.568947  0.0793893  0.103149  0.0305344], ... 
’String','Solidity', ... 

'Style',’text', ... 

'Tag',’StaticTextl4'); 
b  =  uicontrol(Tarent',H_COMP_TR, ... 

'Units','noimalized', ... 

'BackgroundColor', [1 1 1], ... 

'Position',[0.677524  0.0793893  0.0781759  0.0305344], ... 
’Style',’edit', ... 
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■Tag','EditText6'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'UnitsVnormalized', ... 

■BackgroundColor’,[0.752941 0.752941  0.752941], ... 

'Position', [0.770901  0.0580153  0.114007  0.0534351], ... 

'String', 'NOTAR  Moment  Arm  (ft)', ... 

'Style', 'text', ... 

'Tag','StaticTextl5'); 
b  =  iiicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position',[0.897937  0.0717557  0.0770901  0.0305344], ... 

'Style', 'edit', ... 

'Tag','EditText7'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'BackgroimdColor',[0.752941  0.752941 0.752941], ... 

'Position',[0.558089  0.010687  0.429967  0.983206], ... 

'Style', 'frame', ... 

'Tag','Frame2'); 

b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units', 'normalized', ... 

'Callback','compoimd_tailrotor_fcn  back', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position', [0.149837  0.242378  0.206298  0.106707], ... 

'Strmg','BACK', ... 

'Tag','Flishbuttonl'); 
b  =  uicontrol('Parent',H_COMP_TR, ... 

'Units','normalized', ... 

'Callback', 'S_PF,RF_TNPTJT=S_USER_rNPUT;compound_tailrotor_fcn  cont', ... 
'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0. 152009  0.0960366  0.206298  0.105183], ... 

'Strmg','CONTINUE  »', ... 

'Tag','Pushbuttonl'); 

assignin('base','H_AUX_E_DR',H_AUX_E_DR) 

assignin('base','H_FIX_TPP',H_FIX_TPP) 
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APPENDIX  X.  COMPOUND_TAILROTOR_FCN.M 


Switchyard  callback  for  compound  tailrotor.m  GUI  screen 

ftinction  compound_tailrotor_fcn(  Action) 

%  Switchyard  Callback  function  for  compound  tailrotor.m 
%  JANRAD  98  VERSION  5.0 

global  H_PERF_IN  H_COMP_TR  H_AUX_E_DR  H_FIX_TPP  NEW_Al]X_VAL  NEW_TPP 
FIX_TPP_VAL  RADSPC_VAL ... 

COUNT  S_USER_INPUT  S_PERF_INPUT  H_POP  AF_MAIN  AF_TIP  MESH_VAL  MESH_STA 
NEW_rNL_TWIST 

ifnargiii, 
switch  Action 
case  back' 
performance_input 
if  get(H_POP,'Value')=7 
set(H_MESH,'Enable','on') 

MESH_VAL=1; 

end 

close  (HCOMPTR) 
case  'return' 
janrad98 
close  all 
case  'quit' 
quit_gui 

case  'delta_input' 
performanceinput 
if  get(H_POP,'Value')=7 
set(H_MESH,'Enable','on') 

MESH_VAL=1; 

end 

close  (H_COMP_TR) 
case  'about' 
aboutjanrad 
case  'cont' 

if  get(H_AUX_E_DR,'Value')=l 
NEW_AUX_VAL=1; 
else 

NEW_AUX_VAL=0; 

end 

if  get(H_FIX_TPP,'Value')==l 
FIX_TPP_VAL=1; 
else 

FIX_TPP_VAL=0; 

end 

if  RADSPC_VAL==  1  |NL_TWIST==1 
bladeelement 
close  (H_COMP_TR) 
else 

iterationmethod 
close  (H_COMP_TR) 


185 


end 

end 

end 
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APPENDIX  Y.  AIRFOIL  MESH.M 


This  file  creates  a  screen  allowing  airfoil  meshing  capabilities 


function  airfoil_mesh() 

%  GUI  Window  to  create  mesh  of  two  airfoils 
%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  airfoil_mesh 

global  H_AF_MESH  H_MESH  AF_MAIN  AF_TIP  MESH_STA  MESH_VAL  COUNT 
COUNT=l; 

H_AF_MESH  =  figure('Umts','normalized', ... 

'Color',[0.8  0.80.8],... 

'Colormap',malO, ... 

NameVAiifoil_Mesh', ... 

NumberTitleVoff, ... 

'PointerShapeCData',matl, ... 

■Position',[0. 169922  0.532552  0.65625  0.389323], ... 

•Tag^-Figl-); 

b  =  uicontrol(Tarent',H_AF_MESH, ... 

'Units’,'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position’,[0.0997024  0.627517  0.802083  0.325503], ... 

'String',mat2, ... 

•Style’,'text’, ... 

Tag'.'StaticTextl'); 

b  =  uicontrol('Parent',H_AF_MESH, ... 

XJnitsVnoimalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

Tosition’,[0. 13244  0.399329  0.354167  0.184564], ... 

'String',  ['Airfoil  for  rotor  blade  section  out  to  r/R  of '  num2str(MESH_STA)] , . . . 
'Style','text', ... 

Tag','StaticText2'); 

H_AF_MAIN  =  uicontrol('Parent',H_AF_MESH, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

TontSize',12, ... 

'Position',[0. 537202  0.270903  0.21131  0.314381], ... 
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'String', ['SeIectl0012|HH-02|VR-12|VR-151SC1094R8|SC1095R8’], ... 

'Style', 'popupmenu', ... 

'Callback','global  AF_MAIN,  AF_MAIN=get(gcbo,"  Value");',... 
'Tag','PopupMenur, ... 

'Value',  1); 

b  =  uicontrol('Parent',H_AF_MESH, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0. 13244  0.0973154  0.354167  0.194631], ... 

'String', ['Airfoil  for  rotor  blade  from '  num2str(MESH_STA)  '  r/R  out  to  tip.'], ... 
'Style','text', ... 

'Tag’,'StaticText2'); 

H  AF  TIP  =  uicontrol('Parent',H_AF_MESH, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'FontSize',12, ... 

'Position', [0.53869  -0.0234114  0.21131  0.32107], ... 

'String', ['Selectl0012|HH-02|VR-12|VR-15|SC1094R8|SC1095R8'], ... 
'CaUback','globalAF_TIP,AF_TIP=get(gcbo,"Value");',... 

'Style','popupmenu', ... 

'Tag','PopupMenul', ... 

'Value',  1); 

b  =  uicontrol('Parent',H_AF_MESH, ... 

'Units','points', ... 

'BackgroundColor',[0.847059  0.752941  0.627451], ... 

'Position', [7.44828  6.82759  404.069  286.138], ... 

'Style','frame', ... 

'Tag','Framel', ... 

'Visible','off); 

b  =  uicontrol('Parent',H_AF_MESH, ... 

'Units','points', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[332.69  56.4828  42.8276  28.5517], ... 

'String','O.K.', ... 

'Callback', 'peiformance_input_fcn  ok',. . . 

'Tag','Pushbuttonr); 

assignin('base','H_AF_MAIN',H_AF_MAIN) 

assignin('base',’H_AF_TIP',H_AF_TIP) 
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APPENDIX  Z.  CREATE  PLOTS.M 


This  file  generates  the  output  plots  for  all  iteration  methods 

%  Create_Plots.m 

%  Plots  of  Performance  Output  -  change  figure  nbrs  as  needed 
%  add/comment  out  figures  as  needed  %%%% 

%  JANRAD  98  VERSION  5.0 

global  REGIME  S_PERF_INPUT  MINUM  RADSPC_VAL  filenames  PICK  OUT_COUNT  PLOT_VALS 

unstructure 
if  PICK -^0 
load  output 
load  tailop 
end 

ifREGIME==l 
load  extra9 
end 

switch  PICK 
case  0 

evaltfload  '^filenames]) 
ifRADSPC_VAL==l 
dr=[dr  (R-Refif)]*12 
else 

dr=dr*12; 

end 

ifget(H_NO_IT_Pl,'Value')==l 
figure(l  1) 
subplot(2,l,l) 

plot(r./R,dT(l,;)./dr,'k'),grid 
titleCPsi  =  0  deg') 

xlabel('Blade  Position  r/R');ylabel(’ Airload  (Lb/in)'); 
subplot(2,l,2) 

plot(r./]^dT(floor(naz/4),:)./dr,'k'),grid 
titleC'Psi  =  90  deg') 

xlabelCBlade  Position  r/R');ylabel(' Airload  (Lb/in)'); 

toptitle([' Airload  vs  Radial  Blade  Stations  At  ',num2str(Vinf/1.68781),'  Kts']) 

figure!  12) 

subplot(2,l,l) 

plot(r./]^dT(floor(naz/2),:)./dr,'k'),grid 
title('Psi  =180  deg') 

xlabel('Blade  Position  r/R');  ylabelf  Airload  (Lb/iu)'); 
subplot(2,l,2) 

plot(r./]KdT(floor(3*naz/4),;)./dr,'k'),grid 
title(Tsi  =  270  deg') 
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xlabel('Blade  Position  r/R');  ylabelC  Airload  (Lb/in)'); 
toptitle([' Airload  vs  Radial  Blade  Stations  At  ',mmi2str(Vinf'1.68781),'  Kts']) 
end 

if  get(H_NOJT_P2,'Value’)==l 
figure(13) 

ifRADSPC_VAL==l 

[th,rl]  =  meshgrid((-180:360/naz:180)*pi/180,r/R); 
else 

[th,rl]  =  nieshgrid((-180:360/naz;180)*pi/180,r/R); 
end 

[x,y]  =  pol2cart(th,rl); 
dTl=[dT;  dT(l,:)]; 
for  i=l:na2+l 
dTl(i,:)=dTl(i,:)./dr; 
end 

mesh(x',y',dTl) 
view(3 15,60) 
axis([-l  1  -1  1  -5  40]) 

xlabel('Starboard');  ylabelC  Aft');  zlabel('Aero  Load,  Lb/in'); 
title([' Airload  Distribution  At  ',num2str(Vinftl. 68781),'  Kts']) 
end 

ifget(H_NO_IT_P3,'Value')==l 

figure(14) 

n=length(PLOT_VALS); 

rows=ceil(n/2); 

for  i=l:n 

k=find(i==(interpl(r,r,PLOT_VALS(i)*R, 'nearest'))); 
subplot(rows,2,i) 
if(floor(i/2)=(i/2)) 
plot(psi,dM(;,k)),grid,axis  tight 
title(['r/R  =  ',num2str(PLOT_VALS(i))]) 
if  i=n 

xlabel('Azimuth(deg)'); 

end 

else  plot(psi,dM(:,k)),grid,axis  tight 
title(['r/R  =  ',num2str(PLOT_VALS(i))]) 
if  (i=nli=n-l) 
xlabel('Azimuth(deg)'); 
end 

ylabelCThrust  Moment(ft-lb)') 
end 
end 

toptitle(['Thrust  Moment  vs  Azimuth  At  ',num2str(Vinftl. 68781),'  Kts']') 
end 

ifget(H_NO_rr_P4,'Value')==l 
figure(15) 
subplot(2,2,l) 
plot(r./R,dN(l,:)/dr,'k'),grid 
title('Psi  =  0  deg') 
ylabel('Lift,Lb/in'); 

subplot(2,2,2) 

plot(r./KdN(floor(naz/4),  :)/dr,'k'),giid 
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titleCPsi  =  90  deg') 


subplot(2,2,3) 

plot(r./^dN(floor(naz/2),  :)/dr,'k'),grid 
title('Psi  =180  deg*) 
xlabel('r/R');  ylabel('LiLfl,Lb/in'); 

subplot(2,2,4) 

plot(r./^dN(floor(3  *iiaz/4),  ;)/dr,'k'),grid 

title('Psi  =  270  deg*) 

xlabel('r/R’); 

toptitle(['Noniial  Force  (Lift)  vs  Radial  Blade  Stations  At  ',niim2str(Vinftl. 68781),'  Kts']) 
end 

case  1 
load  extral 

if  get(H_ASJT_Pl,'Value')==  1 

%%%%  Main  Rotor  plots  -  Speed  vs  T/RHP/TPPangle/Liftpercent  -  4  on  1  page  %%%% 
figure(l 1) 

%subplot  221;plot(speed,LoverD);  ylabel('W/De');  xlabelC Airspeed  (kts)') 
subplot  221;  plot(sp^,thrust);grid,  ylabel('Rotor  Thrust  Ob)') 
subplot  222;  plot(speed,RHP);  grid,ylabel('Rotor  Horsepower') 

subplot  223;  ploftspeed, angle);  grid,xlabel(' Airspeed,  Kts');  ylabel('Tip  Path  Plane  Angle  (deg)') 
subplot  224;  plot(speed,Lperc);  grid, xlabel(' Airspeed,  Kts');ylabel('Wing  Lift  Percentage') 
%subplot  223;  plot(mu,ctonsig) 

%%%%  Exact  numbers  for  above  graphs 

%dispC  Speed  W/De  RHP  TPP  Angle  Lift  Percent') 

%final=[speed  LoverD  RHP  angle  Lperc]; 
end 

ifget(H_AS_IT_P2,'Value')=l 
%%%%  Total  Pwr  reqd  vs  Airspeed%%%% 
figure(12) 

ifMINUM==0&PA==0&REGIME==l 

To^wr(l)=Ptige(l); 

end 

plot(speed,  Totpwr),hold,grid 
plot(speed,  RHP,'^) 
plot(speed,  pwTtail,'g') 
titleCPower  Required  vs  Airspeed') 
xlabelC  Airspeed  (kts)') 
ylabel('Shaft  Horsepower') 

text(1.01*inin(speed),.995*max(Toq)wr),['Omega  = '  num2str(omega) '  rad/sec']) 
legend(Total  Power','Rotor  Power','Tail  HP',0) 
ifMINUM==0&PA==0&REGIME==l 
text(min(speed)+10,min(Totpwr)+10,'Value  at  Vinf=0  is  HIGE  Power') 
end 
end 

%if  get(H_AS_IT_P3,' Value')=  1 

%  %%%%  Fan-in-Tail  Plots  -  Thrust  vs  Speed  &  Pwr  vs  Speed  -  on  1  page  %%%% 

%  figure(13) 

%  subplot  211;  plot(speed,  Tfan,speed,Tfin,'“'),grid 
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%  titleC  Anti-Torque  Thrust  Required  and  Vertical  Fin  Thrust  Provided') 

%  ylabel('Thrust  (lbs)');legendCFan  Thrust',’Vert  Fin  Lift',0) 

%  subplot  212;  plot(speed,pwrfani,'-',speed,pwifanp,'-.', speed, pwrfant), grid 
%  title('Fan  Power  Required') 

%  xlabel('Airspeed  (kts)');ylabel(Tower  (hp)') 

%  legend('Induced  Power','Profile  Power', Total  Power',  0) 

%end 

if  get(H_ASJT_P3,'Value')==l 
%%%%  Rotor  Speed  vs  Speed  (Variable  omega) 
figure(13) 
plot(speed,rot_spd) 

titleCRotor  Speed  vs  Airspeed  For  Constant  Vtip  =  0.87  Mach') 
xlabelC  Airspeed  (kts)');ylabel('Omega  (lad/sec)') 
axis([140  220  21  24.5]) 
end 

%if  get(H_AS_IT_P4,' Value')=  1 

%  %%%%  Fan-in-Tail  Plot  -  Speed  vs  Tot  Fan  Pwr  %%%% 

%  figure(14) 

%  plot(speed,  pwrfant./RHP*100),grid 
%  tideCTail  Rotor  Power  Required  as  Percent  of  Rotor  Power') 

%  xlabel('Airspeed') 

%  ylabelCPercent  Rotor  Power') 

%end 

ifget(H_AS_IT_P4,'Value')==l 

figure(14) 

plot(speed,  auxthrust),grid 

titleC Auxiliary  Thrust  Required  vs  Airspeed,  Wing  Carrying  70%  Total  Lift') 
xlabelC  Airspeed  (kts)') 
ylabelC  Auxiliary  Thrust  Gb)') 
end 

if  get(H_AS_IT_P5,'Value')==l 

%%%%  Plot  of  Coeff  of  Pwr  vs  Coeff  of  Thrust  at  Max  Airspeed  %%%% 
figure(15) 

plot(Tcoeff,Pcoef!f),grid 
title('CP  versus  CT  for  Maximum  Airspeed') 
xlabel('Thrust  Coefficient  (CT)') 
ylabel('Engine  Power  Coefficient  (CP)') 
end 

if  get(H_AS_IT_P6,'Value')==  1 

%%%%  Plot  of  Coefficient  of  Thmst  vs  Figure  of  Merit  %%%% 
figure(16) 

plot(Tcoeff,figmrt),grid 
titleCHOGE  FM  versus  CT  for  SLS') 
xlabel('Thrust  Coefficient  (CT)') 
ylabel('Figure  of  Merit  (FM)') 
end 

if  get(H_AS_IT_P7,'Value')==l 
%%%%  Rotor  Drag  vs  Airspeed  %%%% 
figure(17) 

plot(speed,Rotdrag,'r'),hold  on,grid 

plot(speed,Wingdrag,'b') 

plot(speed,Drag,'g') 
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titleCDragvs  Airspeed') 
xlabelC  Airspeed  (Kts)') 
ylabelCDiag  (lbs)') 

legendCRotor  Drag'.'Wing  Drag', Total  Drag',0) 
end 

ifget(H_AS_IT_P8,'Value')==l 
%%%%  Required  Collective  Pitch  vs  Airspeed  %%%% 
figure(18) 

plot(speed,coll_pit),grid 
title('Required  Collective  Pitch  vs  Airspeed') 
xlabelC  Airspeed  (Kts)') 
ylabel('Collective  Pitch  (degrees)') 
end 

ifget(H_AS_IT_P9,'Value')==l 
%%%%  Total  Pwr  reqd  vs  Airspeed%%%% 
figure(ll) 

plot(speed,  Toq)wr),hold,grid 
plot(speed,  RHP,'r') 
plot(speed,  pwrtail,'g') 
titleCPower  Required  vs  Airspeed') 
xlabelC  Airspeed  (Kts)') 
ylabel('Shaft  Horsepower') 
legend(Total  Power',Rotor  Power','Tail  HP',0) 
gtextCOmega=  20  rad/s  Above  140  kts') 
end 

if  get(H_AS_IT_P10,'Value')==l 
%%%%  bis  vs  Airspeed  %%%% 
figure(20) 

plot(speed,long_coefO,grid 
title('lst  Longitudinal  Cyclic  Term  vs  Airspeed') 
xlabelC  Airspeed  (Kts)') 
ylabelCbls') 
end 

case  2 
load  extra2 

ifget(H_AL_IT_Pl,'Value')==l 
%%%%  Total  Pwr  reqd  vs  Altitude%%%% 
figure(ll) 


if  MINUM==0&Vinf==0&REGIME==  1 
Totpwr(l)=Ptige(l); 
end 

plot(altitude,  Totpwr),grid 
title(Total  Power  Required  vs  Altitude') 
xlabelCPressure  Altitude  (ft)') 
ylabel('Shaft  Horsepower') 
if  M[NUM==0&Vinf==0&REGIME==  1 
text(niin(altitude)+50,nrin(Totpwr)+10, 'Value  at  PA=0  is  HIGE  Power') 
end 
end 

ifget(H_AL_IT_P2,'Value')=l 
%%%%  Rotor  Drag  vs  Altitude  %%%% 
figure(12) 
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altitude 

Rotdrag 

plot(altitude,Rotdrag),grid 
title('Rotor  Drag  vs  Altitude') 
xlabel('Pressure  Altitude  (ft)') 
ylabel('Rotor  Drag  (lbs)') 
end 

if  get(H_AL_IT_P3;Value')=l 
%%%%  Required  Collective  Pitch  vs  Altitude  %%%% 
figure(13) 

plot(altitude,coll_pit),grid 
titleCRequired  Collective  Pitch  vs  Altitude') 
xlabelCPressiffe  Altitude  (ft)') 
ylabel('Collective  Pitch  (degrees)') 
end 

if  get(H_AL_IT_P4;Value')=l 
%%%%  als  vs  Altitude  %%%% 
figure(14) 

plot(altitude,lat_coeff),grid 
title('lst  Lateral  Cyclic  Term  vs  Altitude') 
xlabel('Pressure  Altitude  (ft)') 
ylabel('als') 
end 

if  get(H_AL_IT_P5,'Value’)=l 
%%%%  bis  vs  Altitude  %%%% 
figure(15) 

plot(altitude,long_coel^,grid 
title('lst  Longitudinal  Cyclic  Term  vs  Altitude') 
xlabel('Pressure  Altitude  (ft)') 
ylabelCbls') 
end 

case  3 
load  extra3 

if  get(H_GW_IT_Pl,'Value')==l 

%%%%  Total  Pwr  reqd  vs  Gross  Weight%%%% 

figure(l 1) 

plot(wt,  Totpwr),grid 

title('Total  Power  Required  vs  Gross  Weight') 
xlabel('Gross  Weight  (lb)') 
ylabel('Shaft  Horsepower') 
end 

if  get(H_GW_IT_P2,' Value')==  1 
%%%%  Rotor  Drag  vs  Gross  Weight  %%%% 
figure(12) 

plot(wt, Rotdrag), grid 
titleCRotor  Drag  vs  Gross  Weight') 
xlabel('Gross  Weight  (lb)') 
ylabel('Rotor  Drag  Gbs)') 
end 

if  get(H_GW_IT_P3,'Value')==l 
%%%%  Required  Collective  Pitch  vs  Gross  Weight  %%%% 
figure(13) 

plot(wt,coU_pit),giid 

titleCRequired  Collective  Pitch  vs  Gross  Weight') 
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xlabel(’Gross  Weight  (lb)') 
ylabel('Collective  Pitch  (degrees)') 
end 

if  get(H_GW_IT_P4,' Value')=  1 
%%%%  als  vs  Gross  Weight  %%%% 
figure(14) 

plot(wt,lat_coeff),grid 

title('lst  Lateral  Cyclic  Term  vs  Gross  Weight') 
xlabel('Gross  Weight  (lb)') 
ylabel(’als') 
end 

if  get(H_GW_IT_P5,' Value'>==  1 
%%%%  bis  vs  Gross  Weight  %%%% 
figure(15) 

plot(wt,long_coe£f),grid 

title('lst  Longitudinal  Cyclic  Term  vs  Gross  Weight') 
xlabel('Gross  Weight  (lb)') 
ylabelCbls') 
end 

if  get(H_GW_IT_P6,' Value')==  1 
%%%%  Plot  of  Coefficient  of  Thrust  vs  Gross  Weight  %%%% 
figure(16) 
plot(wt,TcoefO,gtid 

title('Coefficient  of  Thrust  vs  Gross  Weight') 
xlabel('Gross  Weight  (lb)') 
ylabel('Thrust  Coefficient  (CT)') 
end 

ifget(H_GW_IT_P7,'Value')==l 
%%%%  Plot  of  Coefficient  of  Power  vs  Gross  Weight  %%%% 
figure(17) 
plot(wt,Pcoeff),gTid 

title('Coefficient  of  Power  vs  Gross  Weight') 
xlabelCGross  Wei^t  (lb)')  . 

ylabel('Power  Coefficient  (CP)') 
end 

if  get(H_GW_IT_P8,' Value')==  1 
%%%%  Plot  of  Figure  of  Merit  vs  Gross  Weight  %%%% 
figure(18) 
plot(wt,fignut),grid 
title('Figure  of  Merit  vs  Gross  Weight') 

XlabelCGross  Weight  (lb)') 
ylabelCFigure  of  Merit') 
end 

ifget(H_GW_IT_P9,'Value')==l&REGIME==l&PA==0 

figure(19) 

plot(wt,Ptige),gtid 

title('HIGE  Power  Required  vs  Gross  Weight') 
xlabelCGross  Weight  ^b)') 
ylabel('Shaft  Horsepower') 
end 


case4 

load  extra4 
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if  get(H_BT_IT_Pi;Value')==l 

%%%%  Total  Pwr  reqd  vs  Blade  Twist%%%% 

figure(ll) 

plot(thetat,  Totpwr),grid 
title(Total  Power  Required  vs  Blade  Twist') 
xlabel('Blade  Twist  (deg)') 
ylabel('Shafl  Horsepower') 
end 

if  get(H_BT_lT_P2,'Value')==l 
%%%%  Rotor  Drag  vs  Blade  Twist  (deg)  %%%% 
figure(12) 

plot(thetat,Rotdrag),grid 
title('Rotor  Drag  vs  Blade  Twist') 
xlabeK'Blade  Twist  (deg)') 
yIabel('Rotor  Drag  (lbs)') 
end 

if  get(H_BT_IT_P3,'Value')==l 

%%%%  Required  Collective  Pitch  vs  Blade  Twist  (deg)  %%%% 
figure(13) 

plot(thetat,collj3it),grid 
title('Required  Collective  Pitch  vs  Blade  Twist') 
xlabel('Blade  Twist  (deg)') 
ylabel('Collective  Pitch  (degrees)') 
end 

if  get(H_BT_IT_P4,'Value')==l 
%%%%  als  vs  Blade  Twist  (deg)  %%%% 
figure(14) 

plot(thetat,lat_coeff),grid 
title('lst  Lateral  Cyclic  Term  vs  Blade  Twist') 
xlabeK'Blade  Twist  (deg)') 
ylabel('als') 
end 

if  get(H_BT_IT_P5,'Value')==l 
%%%%  bis  vs  Blade  Twist  (deg)  %%%% 
figure(15) 

plot(thetat,long_coeff),grid 
title('lst  Longitudinal  Cyclic  Term  vs  Blade  Twist') 
xlabeK'Blade  Twist  (deg)') 
ylabelCbls') 
end 

ifget(H_BT_IT_P6,'Value')==l 

%%%%  Plot  of  CoefBcient  of  Thrust  vs  Blade  Twist  (deg)  %%%% 
figure(16) 

plot(thetat,Tcoeff),grid 
title('Coefficient  of  Thrust  vs  Blade  Twist') 
xlabeK'Blade  Twist  (deg)') 
ylabeK'Thrust  Coefficient  (CT)') 
end 

if  get(H_BT_IT_P7,'Value')==  1 

%%%%  Plot  of  Coefficient  of  Power  vs  Blade  Twist  (deg)  %%%% 
figure(17) 

plot(thetat,PcoefE),grid 
title('Coefficient  of  Power  vs  Blade  Twist') 
xlabeK'Blade  Twist  (deg)') 
ylabeK'Power  Coefficient  (CP)') 
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end 

ifget(H_BT_IT_P8/VaIue')==l 
%%%%  Plot  of  Figure  of  Merit  vs  Blade  Twist  (deg)  %%%% 
figure(16) 

plot(thetat,figinrt),grid 
title('Figure  of  Merit  vs  Blade  Twist') 
xlabelCBlade  Twist  (deg)') 
ylabelCFigure  of  Merit') 
end 

case  5 

load  extras 

if  get(H_BTR_IT_Pl , '  Value')=  1 

%%%%  Total  Pwr  reqd  vs  Blade  Taper  Ratio%%%% 

figure(ll) 

plot(taper,  Tolpwr),grid 

title(Total  Power  Required  vs  Blade  Taper  Ratio') 
xlabelCBlade  Taper  Ratio') 
ylabel('Shaft  Horsepower') 
end 

if  get(H_BTR_IT_P2,'Value')==l 
%%%%  Rotor  Drag  vs  Blade  Taper  Ratio%%%% 
figure(12) 

plot(taper,Rotdrag),grid 
title('Rotor  Drag  vs  Blade  Taper  Ratio') 
xlabelCBlade  Taper  Ratio') 
ylabelCRotor  Drag  Gbs)') 
end 

ifget(H_BTR_IT_P3,'Value')==l 
%%%%  Required  Collective  Pitch  vs  Blade  Tjper  Ratio%%%% 
figure(13) 

plot(taper,coll_pit),grid 

title('Required  Collective  Pitch  vs  Blade  Taper  Ratio') 
xlabelCBlade  Taper  Ratio’) 
ylabelCCollective  Pitch  (degrees)') 
end 

if  get(H_BTR_IT_P4,'Value')==l 
%%%%  als  vs  Blade  Taper  Ratio  %%%% 
figure(14) 

plot(taper,lat_coeff),grid 

title('lst  Lateral  Cyclic  Term  vs  Blade  Taper  Ratio') 
xlabelCBlade  Taper  Ratio') 
ylabel('als') 
end 

ifget(H_BTR_IT_P5,'Value')==l 
%%%%  bis  vs  Blade  Taper  Ratio  %%%% 
figure(15) 

plot(taper,long_coefi),grid 

title('lst  Longitudinal  Cyclic  Term  vs  Blade  Taper  Ratio') 
xlabelCBlade  Taper  Ratio') 
ylabelCbls') 
end 

if  get(H_BTR_IT_P6;  Value')=l 

%%%%  Plot  of  Coefficient  of  Thrust  vs  Blade  Taper  Ratio  %%%% 
figure(16) 
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plot(taper,Tcoeff),grid 

title('Coefficient  of  Thrust  vs  Blade  Taper  Ratio') 
xlabel('Blade  Taper  Ratio') 
ylabelCThrust  Coefficient  (CT)') 
end 

if  get(H_BTR_IT_P7,'Value')==l 

%%%%  Plot  of  Coefficient  of  Power  vs  Blade  Taper  Ratio  %%%% 
figiire(17) 

plot(taper,PcoeflE),grid 

title('Coefficient  of  Power  vs  Blade  Taper  Ratio') 
xlabel('Blade  Taper  Ratio') 
ylabel('Power  Coefficient  (CP)') 
end 

if  get(H_BTR_IT_P8,'Value')==l 
%%%%  Plot  of  Figure  of  Merit  vs  Blade  Taper  Ratio  %%%% 
figure(16) 

plot(taper,fignirt),grid 
title('Figure  of  Merit  vs  Blade  Taper  Ratio') 
xlabel('Blade  Taper  Ratio') 
ylabel('Figure  of  Merit') 
end 

case  6 

load  extra6 

if  get(H_SOT_IT_Pl,'Value')=l 

%%%%  Total  Pwr  reqd  vs  Start  of  Taper  Position%%%% 

figure(ll) 

plot(start,  TotpviT),grid 

title(Total  Power  Required  vs  Start  of  Taper  Position') 
xlabel('Start  of  Taper  Position') 
ylabel('Shaft  Horsepower') 
end 

if  get(H_SOT_IT_P2,'Value')==l 
%%%%  Rotor  Drag  vs  Start  of  Taper  Position%%%% 
figure(12) 

plot(start,Rotdrag),grid 
title('Rotor  Drag  vs  Start  of  Taper  Position') 
xlabel('Start  of  Taper  Position') 
ylabel('Rotor  Drag  (lbs)') 
end 

if  get(H_SOT_IT_P3,'Value')==l 

%%%%  Required  Collective  Pitch  vs  Start  of  Taper  Position%%%% 
figure(13) 

plot(slart,coll_pit),grid 

title('Required  Collective  Pitch  vs  Start  of  Taper  Position') 
xlabel('Start  of  Taper  Position') 
ylabel('Collective  Pitch  (degrees)') 
end 

ifget(H_SOT_IT_P4,'Value')=l 
%%%%  als  vs  Start  of  Taper  Position  %%%% 
figure(14) 

plot(start,lat_coeff),grid 

title('lst  Lateral  Cyclic  Term  vs  Start  of  Taper  Position') 

xlabel('Start  of  Taper  Position') 

ylabel('als') 
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end 

if  get(H_S0T_IT_P5,' Value')=  1 
%%%%  bis  vs  Start  of  Taper  Position  %%%% 
figure(15) 

plot(start,long_coeff),grid 

title('lst  Longitudinal  Cyclic  Term  vs  Start  of  Taper  Position') 
xlabel('Start  of  Taper  Position') 
ylabel('bls') 
end 

if  get(H_SOT_IT_P6,' Value')==  1 

%%%%  Plot  of  Coefficient  of  Thrust  vs  Start  of  Taper  Position  %%%% 
figure(16) 

plot(start,TcoefiO,grid 

title('Coefficient  of  Thrust  vs  Start  of  Taper  Position') 
xlabel('Start  of  Taper  Position') 
ylabeKThrust  Coefficient  (CT)') 
end 

if  get(H_SOT_IT_P7,' Value')==  1 

%%%%  Plot  of  Coefficient  of  Power  vs  Start  of  Taper  Position  %%%% 
figure(17) 

plot(start,Pcoeff),grid 

title('Coefficient  of  Power  vs  Start  of  Taper  Position') 
xlabeK'Start  of  Taper  Position') 
ylabelCPower  Coefficient  (CP)') 
end 

ifget(H_SOT_IT_P8,'Value')=l 
%%%%  Plot  of  Figure  of  Merit  vs  Start  of  Taper  Position  %%%% 
figure(16) 

plot(start,figinrt),grid 

title('Figure  of  Merit  vs  Start  of  Taper  Position') 
xlabeK'Start  of  Taper  Position') 
ylabel('Figure  of  Merit') 
end 

case? 
load  extra? 

ifget(H_WSA_IT_Pl,'Value')==l 
%%%%  Total  Pwr  reqd  vs  Wing  Span  Area%%%% 
figure(ll) 

ploKarea,  Totpwr),hold,grid 
plot(area,  RHP.'r') 
plot(area,  pwrtail,'g') 

title('Power  Required  vs  Wing  Span  Area') 
xlabeK'Wing  Span  Area  (fit'''?)') 
ylabeK'Shaft  Horsepower') 
legend(Total  Power', 'Rotor  Power'.'Tail  HP',0) 
end 

if  get(H_WS  A_IT_P2,' Value')=  1 
%%%%  Aux  Thrust  and  Drag  vs  Wing  Span  Area%%%% 
figure(12) 

plot(area,Wingdrag),hold,grid 

plot(area,Rotdrag,'“') 

plot(area,auxthrust,'r') 

titleC  Aux  Thrust  and  Drag  vs  Wing  Span  Area') 
xlabelCWing  Span  Area  (ft^2)') 
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ylabelCDrag  (lbs)') 

legendCWing  Drag', 'Rotor  Drag','Aux  Thrust', 0) 
end 

if  get(H_WSA_IT_P3,'Value')==  1 
%%%%  Required  Collective  Pitch  vs  Wing  Span  Area%%%% 
figure(13) 

plot(area,coll_pit),grid 

title('Required  Collective  Pitch  vs  Wing  Span  Area') 
xlabel('Wing  Span  Area  (ft'''2)') 
ylabel('Collective  Pitch  (degrees)') 
end 

if  get(H_WSA_IT_P4,'Value')==l 
%%%%  Wing  Lift  vs  Wing  Span  Area  %%%% 
figure(14) 

plot(area,Winglift),grid 
titleCWing  Lift  vs  Wing  Span  Area') 
xlabelCWing  Span  Area  (ft^2)') 
ylabel('Liftab)') 
end 

if  get(H_WSA_IT_P5,'Value')==l 
%%%%  Tail  Rotor  Power  Required  vs  Wing  Span  Area  %%%% 
figure(15) 

plot(area,pwrtail),grid 

title(Tail  Rotor  Power  Required  vs  Wing  Span  Area') 
xlabelCWing  Span  Area  (ft^2)') 
ylabel('Tail  Rotor  Power  (HPy) 
end 

ifget(H_WSA_IT_P6,'Value')=l 
%%%%  Plot  of  CoefBcient  of  Thrust  vs  Wing  Span  Area  %%%% 
figure(16) 

plot(area,Tcoeff),grid 

title('Coefficient  of  Thrust  vs  Wing  Span  Area') 
xlabelCWing  Span  Area  (ft^2)') 
ylabel^Thrust  Coefficient  (ci^') 
end 

if  get(H_WSA_IT_P7,'Value')=l 
%%%%  Plot  of  Coefficient  of  Power  vs  Wing  Span  Area  %%%% 
figure(17) 

plot(area,Pcoeff),giid 

titleCCoefficient  of  Power  vs  Wing  Span  Area') 
xlabelCWing  Span  Area  (ft'^2)') 
ylabel('Power  Coefficient  (CP)') 
end 

if  get(H_WSA_IT_P8,'Value')=l 
%%%%  Plot  of  Figure  of  Merit  vs  Wing  Span  Area  %%%% 
figure(18) 

plot(area,fignut),grid 
title(Tigure  of  Merit  vs  Wing  Span  Area') 
xlabelCWing  Span  Area  (ft^2)') 
ylabel(Tigure  of  Merit') 
end 

if  get(H_WSA_IT_P9,'Value')=l 
%%%%  Plot  of  Disk  Loading  vs  Wing  Span  Area  %%%% 
figure(19) 

plot(area,diskload),grid 
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titIe('Disk  Loading  vs  Wing  Span  Area') 
xlabeK'Wing  Span  Area  (ft''2)') 
ylabel('Disk  Loading') 
end 

if  get(H_WS  A_IT_P1 0;  Value')==  1 

%%%%  Plot  of  Wing  Lift  As  %  of  Total  Lift  vs  Wing  Span  Area  %%%% 
figure(20) 

plot(area,Lperc),grid 

title('Percent  of  Total  Lift  On  Wing  vs  Wing  Span  Area') 
xlabel('Wing  Span  Area  (ft''2)') 
ylabel(Tercent  of  Total  Lift') 
end 
case  8 
load  extras 

if  get(H_RBR_IT_Pl,'Value')==  1 
%%%%  Total  Pwr  reqd  vs  Main  Rotor  Radius%%%% 
figure(ll) 

ploftmibjradius,  Totpwr),hold,grid 
plot(nirb_radiiis,  RMP,'!*) 
plot(nirb_radius,  p\vrtail,'g') 

title(['Power  Required  vs  Main  Rotor  Radius  at ',  num2str(fix(VinftL68781)),'  Kts']) 
xlabelCMain  Rotor  Radius  (ft)') 
ylabel('Shaft  Horsepower') 

text(L01*niin(mib_radius),.995*max(Totpwr),['C)mega  = '  nuni2str(omega) '  rad/sec']) 
legend(Total  Power','Rotor  Power', 'Tdl  HP',0) 
end 

ifget(H_RBR_IT_P2,'Value’)==l 
%%%%  Aux  Thrust  and  Drag  vs  Main  Rotor  Radius%%%% 
figure(12) 

plot(mrb_iadius,Wingdrag),hold,grid 

plot(nirb_radius,Rotdrag,'--') 

plot(nirb_radius,auxthrust,'r') 

titleC  Aux  Thrust  and  Drag  vs  Main  Rotor  Radius') 

xlabelCMain  Rotor  Radius  (ft)') 

ylabel('Drag  (lbs)') 

legend('Wing  Drag','Rotor  Drag', 'Aux  Thrust',0) 
end 

if  get(H_RBR_IT_P3,'Value')==  1 
%%%%  Required  Collective  Pitch  vs  Main  Rotor  Radius%%%% 
figure(13) 

plot(mib_radius,coll_pit),grid 
title('Required  Collective  Pitch  vs  Main  Rotor  Radius') 
xlabelCMain  Rotor  Radius  (ft)') 
ylabelCCollective  Pitch  (degrees)') 
end 

if  get(H_RBR_IT_P4,' Value')==  1 

%%%%  Tail  Rotor  Power  Required  vs  Main  Rotor  Radius  %%%% 
figure(14) 

plot(mib_radius,pwrtail),grid 

title(Tail  Rotor  Power  Required  vs  Main  Rotor  Radius') 
xlabelCMain  Rotor  Radius  (ft)') 
ylabel('Tail  Rotor  Power  (HP)') 
end 

ifget(H_RBR_IT_P5,'Value')==l 
%%%%  Plot  of  Figure  of  Merit  vs  Main  Rotor  Radius  %%%% 
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figure(15) 

plot(inrb_iadius,figinrt),grid 
title('Figure  of  Merit  vs  Main  Rotor  Radius') 
xlabel('Main  Rotor  Radius  (ft)') 
yIabeI('Figure  of  Merit') 
end 

if  get(H_RBR_IT_P6,'Value')==  1 
%%%%  Plot  of  Disk  Loading  vs  Main  Rotor  Radius  %%%% 
figure(16) 

plot(mrb_radius, diskload), grid 
title('Disk  Loading  vs  Main  Rotor  Radius') 
xlabel('Main  Rotor  Radius  (ft)') 
ylabel('Disk  Loading') 

end 
case  9 
load  extra9 

if  get(H_RBS_IT_Pl,'Value')=l 
%%%%  Total  Pwr  reqd  vs  Main  Rotor  Speed%%%% 
figure(ll) 

plot(rot_spd,  Totpwr),liold,grid 
plot(rot_spd,  RHP,'r') 
plot(rot_spd,  pwrtail,'g') 

title(['Power  Required  vs  Main  Rotor  Speed  at ',  num2str(fix(Vinftl.68781)),'  Kts']) 
xlabel('Main  Rotor  Speed  (rad/sec)') 
ylabel('Shaft  Horsepower') 

text(1.01*inin(rot_spd),.995*max(Totpwr), ['Radius  =  '  num2str(R)  '  ft']) 
legend(Total  Power'.'Rotor  Power' ,'T^  HP',0) 
end 

if  get(H_RBS_IT_P2,'Value')=l 
%%%%  Aux  Thrust  and  Drag  vs  Main  Rotor  Speed%%%% 
figure(12) 

plot(rot_spd,Wingdrag),hold,grid 

plot(rot_q)d,Rotdrag,'-') 

plot(rot_spd,auxthrust,'r') 

title('Aux  Thrust  and  Drag  vs  Main  Rotor  Speed') 

xlabel('Main  Rotor  Speed  (rad/sec)') 

ylabel('Drag(lbs)') 

legendCWing  Drag',Rotor  Drag',' Aux  Thrust',0) 
end 

if  get(H_RBS_IT_P3,'Value')=l 
%%%%  Required  Collective  Pitch  vs  Main  Rotor  Speed%%%% 
figure(13) 

plot(rot_spd,colljpit),grid 

title(Required  Collective  Pitch  vs  Main  Rotor  Speed') 
xlabel('Main  Rotor  Speed  (rad/sec)') 
ylabel('Collective  Pitch  (degrees)') 
end 

if  get(H_RB  S_IT_P4,'Value')=  1 

%%%%  Tail  Rotor  Power  Required  vs  Main  Rotor  Speed  %%%% 
figure(14) 

plot(rot_spd,pwrtail),grid 

title(Tail  Rotor  Power  Required  vs  Main  Rotor  Speed') 
xlabel('Main  Rotor  Speed  (rad/sec)') 
ylabel('Tail  Rotor  Power  (HP)') 
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end 

ifget(H_RBS_IT_P5;Value')==l 
%%%%  Plot  of  Disk  Loading  vs  Main  Rotor  Speed  %%%% 
figure(15) 

plot(rot_spd, diskload), grid 
title('Disk  Loading  vs  Main  Rotor  Speed') 
xlabel('Main  Rotor  Speed  (rad/sec)’) 
ylabel('Disk  Loading') 
end 
end 

OUT_COUNT=l; 

options 
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APPENDIX  AA.  CREATE  PLOTS  FCN.M 


Switchyard  callback  function  for  CTeate_plots.m 
function  create_plots_fcn(  Action) 


%  Switchyard  Callback  function  for  create_plots.m 
%  JANRAD  98  VERSION  5.0 

global  PICK  REGIME  H_NO_IT  S_MATR_VEC  H_NO_IT_Pl  H_NO_IT_P2  H_NO_IT_P3 
H_NO_IT_P4  filenames... 

H_AS_IT  H_AS_IT_P1  H_AS_IT_P2  H_AS_IT_P3  H_AS_1T_P4  H_AS_IT_P5  H_AS_IT_P6... 

H_AS_IT_P7  H_AS_IT_P8  H_AS_IT_P9  H_AS_IT_P10  H_AL_IT  H_AL_IT_P1  H_AL_IT_P2... 

H_AL_IT_P3  H_AL_IT_P4  H_AL_1T_P5  H_GW_IT  H_GW_IT_P1  H_GW_IT_P2  H_GW_1T_P3... 

H_GW_IT_P4  H_GW_IT_P5  H_GW_IT_P6  H_GW_IT_P7  H_GW_IT_P8  H_GW_IT_P9  H_BT_IT 
H_BT_IT_P1... 

H_BT_IT_P2  H_BT_IT_P3  H_BT_IT_P4  H_BT_IT_P5  H_BT_IT_P6  H_BT_1T_P7  H_BT_IT_P8... 

H_BTR_IT  H_BTR_IT_P1  H_BTR_IT_P2  H_BTR_IT_P3  H_BTR_IT_P4  H_BTR_IT_P5... 

H_BTR_IT_P6  H_BTR_IT_P7  H_BTR_1T_P8  H_SOT_IT  H_SOT_rr_Pl  H_SOT_rr_P2 
H_SOT_IT_P3... 

H_SOT_IT_P4  H_SOT_lT_P5  H_S0T_1T_P6  H_SOT_IT_P7  H_SOT_IT_P8... 

H_WSA_IT  H_WSA_IT_P1  H_WSA_IT_P2  H_WSA_IT_P3  H_WSA_IT_P4  H_WSA_IT_P5... 

H_WSA_IT_P6  H_WSA_IT_P7  H_WSA_IT_P8  H_WSA_IT_P9  H_WSA_n'_P10  H_RBR_IT 
H_RBR_IT_P1  H_RBR_IT_P2... 

H_RBR_IT_P3  H_RBR_IT_P4  H_RBR_IT_P5  H_RBR_IT_P6  H_RBS_IT  H_RBS_rr_Pl 
H_RBS_IT_P2  H_RBS_IT_P3... 

H_RBS_1T_P4  H_RBS_IT_P5 

ifnargin 

switch  Action 

case  'plots' 
ifPICK==0 
create_plots 
close  (H_NO_IT) 
end 

ifPICK=l 
create_plots 
close  (H_AS_IT) 
end 

ifPICK=2 
create_plots 
close  (H_AL_IT) 
end 

ifPlCK=3 
create_plots 
close  (H_GW_IT) 
end 

ifPICK=4 
create_plots 
close  (H_BT_IT) 
end 

ifPICK=5 
CTeate_plots 
close  (H_BTR_IT) 
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end 

ifPICK=6 
CTeate_plots 
close  (H_SOT_IT) 
end 

ifPICK=7 
create jjlots 
close  (H_WSAJT) 
end 

ifPICK=8 
create_plots 
close  (H_RBR_IT) 
end 

ifPICK=9 
CTeate_plots 
close  (H_RBS_IT) 
end 

case  'back' 
options 

close  (H_NO_IT) 
end 
end 


APPENDIX  AB.  STABILITY  AND  CONTROL.M 


This  file  creates  figure  window  indicating  the  stability  and  control  functions  have 
not  been  incorporated. 


function  stability_and_control() 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  stability_and_control 

a  =  figure(XJnits', 'normalized', ... 

'Color',[0.8  0.80.8],... 

'Colormap',matO, ... 

'MenuBar','none', ... 

'Name','Stability  and  Control  Not  Installed', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position',[0. 190625  0.383333  0.446875  0.34375], ... 

'Tag','Figl'); 

b  =  uicontrol('Parent’,a, ... 

'Units','normalized', ... 

'Callback', 'close(gcf)', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0.3881 12  0.109091  0.202797  0.181818], ... 

'String','OK', ... 

'Tag','Pushbuttonl'); 
b  =  uicontrolCParent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.0839161  0.515152  0.811189  0.345455], ... 

'String'jTTie  Stability  and  Control  Function  is  not  yet  Avalilable  in  JANRAD98', ... 
'Style','texl', ... 

'Tag','StaticTextr); 
b  =  iiicontrol('Parent',a, ... 

Units'.'normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 
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'FontWeight','bold', ... 

Position', [0.332168  0.357576  0.318182  0.127273], ... 
’String','SORRY!', ... 

'Style’,'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol(Parent',a, ... 

'UnitsVnoraialized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 
’Position',[0.013986  0.0363636  0.972028  0.933333], ... 
'Style’,'franie', ... 

Tag','Framel'); 
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APPENDIX  AC.  ROTOR  DYNAMICS.M 


This  file  creates  figure  window  indicating  the  rotor  dynamics  functions  have  not 
been  incorporated. 


function  rotor_dynaniicsO 
%  JANRAD  version  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  rotor_dynamics 

a  =  figure(UnitsVnoimalized', ... 

'Color',[0.8  0.8  0.8], ... 

'Colonnap',matO, ... 

'MenuBa^,'none', ... 

'Name', 'Rotor  Dynamics  Not  Installed', ... 

'NumberTitie','off', ... 

'PoiitterShapeCData',matl, ... 

'Position',[0. 190625  0.3875  0.45625  0.339583], ... 

'Tag'.Tigl'); 

b  =  uicontrol('Parent',a, ... 

Units'.'normalized', ... 

'Callback','close(gcf)', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0.389078  0.153374  0.204778  0.184049], ... 

'String'.'OK', ... 

'Tag'.'Pushbuttonl'); 
b  =  uicontrol(Tarent',a, ... 

Units'.'normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'FontWei^t'j'bold', ... 

'Position',[0.0821918  0.595092  0.849315  0.319018], ... 

'String', The  Rotor  Dynamics  Function  is  not  yet  Avalilable  in  JANRAD98', ... 
'Style', text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

TontSize',12, ... 
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'FontWeight',T5old', ... 

'Position', [0.334471  0.429448  0.317406  0.122699], ... 
'String', 'SORRY!', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.0205479  0.0306748  0.962329  0.93865], ... 
'Style','frame', ... 

'Tag','Fiamer); 
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APPENDIX  AD.  TRIM  WARNEVG.M 


This  file  creates  GUI  to  inform  user  that  the  performance  routine  did  not  calculate 
a  valid  solution. 


function  trim_waniing() 

%  GUI  window  to  notify  user  that  conditions  will  not  trim. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  childrea  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-fQe  and  its  associated  MAT-file  must  be  on  your  path. 

load  trim_waining 

a  =  figure('Units', 'normalized', ... 

'Color', [0.8  0.8  0.8], ... 

'Colonnap',mat0, ... 

'MenuBar','none', ... 

'Name','WARNING!', ... 

'NumberTitle','ofP, ... 

'PointerShapeCData',inatl, ... 

'Position',[0. 184375  0.352083  0.5375  0.404167], ... 

'Tag','Figl'); 

b  =  uicontrol(Tarent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'Position',[0.0755814  0.551546  0.825581  0.103093], ... 

'String','This  configuration  will  not  trim  !',... 

'Style', 'text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Paretrt',a, ... 

'Units', 'normalized', ... 

'Callback','trim_waniing_fcn', ... 

'FontSize',14, ... 

'FontWei^t','bold', ... 

'Position',[0.373547  0.0927835  0.229651  0.164948], ... 

'String','OK', ... 

'Tag','Puslibuttonl '); 
b  =  uicontrol(Tarent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0755814  0.340206  0.825581  0.170103], ... 
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’String',iiiat2, ... 

•Style’/text’, ... 

Tag’.'StaticTextr); 

b  =  viicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.0755814  0.695876  0.825581  0.164948], ... 
'String', 'Performance  Analysis  Routine  Terminated!', ... 
'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position',[0.0348837  0.0463918  0.9244190.886598], ... 
'Style','frame', ... 

'Tag',Tramer); 
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APPENDIX  AE.  TRIM  WARNING  FCN.M 


Switchyard  Callback  fortrim  waming.m  GUI  function. 


function  trim_waming_fcn() 

%  Switchyard  Callback  function  for  trmi_waming.m 
%  JANRAD  98  VERSION  5.0 

global  H_GO  H_RUPT  H_BK  H_RES  H_MEN 

set(H_GO,'Enable';off); 

set(H_RUPT,'Enable’,’ofF); 

set(H_BK,Enable','on’); 

set(H_RES,’Enable','off); 

set(H_MEN,Enable','on'); 

close(gcf) 
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APPENDIX  AF.  EMPTY  BOXES.M 


This  file  creates  GUI  to  inform  user  that  all  input  edit  boxes  must  contain  a  entry 
to  properly  execute  performance  evaluation. 


tunction  empty_boxesO 

%  GUI  window  called  if  Empty  edit  boxes  exist  when  continue  button  is  pressed. 
%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  empty_boxes 

a  =  figureCUnits', 'normalized', ... 

'Color',[0.8  0.8  0.8], ... 

'Colonnap',matO, ... 

'MenuBar','none', ... 

'Name','ERROR', ... 

'NumberTitle','off , ... 

'PointerShapeCData',matl, ... 

'Position',[0.204688  0.35  0.451563  0.2875], ... 

•Tag',Tigl'); 

b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

’Callback','close  (gcf)', ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

Tosition’,[0.401384  0.0942029  0.207612  0.202899], ... 

'String’,'OK’, ... 

'Tag','Pudibuttonl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 

TontSize’,16, ... 

'FontWeight','bold', ... 

'Position’,[0. 107266  0.652174  0.795848  0.217391], ... 

'String',ERROR !', ... 

'Style','text', ... 

'Tag','StaticTextT); 
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b  =  uicontrol('Parent',a, ... 

'Units’, 'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',[0. 107266  0.333333  0.795848  0.311594], ... 

'String', 'All  edit  boxes  must  contain  a  value  to  create  a  new  file.', 
’Style’,'text', ... 

'Tag'.'StaticText  1'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0380623  0.0507246  0.930796  0.905797], ... 

'Style', 'frame', ... 

'Tag','Framer); 


APPENDIX  AG.  STRUCTURE.M 


This  script  M-file  creates  the  input  structure  S_USER_INPUT. 


%  structure.m 

%  Structure  Construction  for  JANRAD98  Perfonnance_mputm 
%  JANRAD  98  VERSION  5.0 


S_USER_INPUT=struct(... 
■PA',PA,... 
temp', temp,... 

'Vinf,Vmf,... 

'GW, GW,... 
'omega',omega,... 

'naz',naz,... 

thetao',thetao,... 

'Swing',Swing,... 

'bwing'.bwing,... 

'CL\ving',CLwing,... 

’CDowmg',CDowing,... 

'ewing'.ewing,... 

'afoir,afoil,... 

'a',a,... 

V,b,... 

'R',R,... 

'e',e,... 

'grip',grip,... 

'rchord',rchord,... 

V,tr,... 

trst',trst,... 

'twist', twist,... 
'wblade',wblade,... 
'nbe',nbe,... 

'Taux'.Taux,... 

'Afh',Afh,... 

'AiV',Afv,... 

'Svert',Svert,... 
'bvert',bvert,... 
’CLvert',CLvert,... 
'CDovert',CDovert,. .. 
'Shoriz',Shoriz,... 
'bhoriz',bhoriz,... 
'CLhoriz',CLhoriz,... 
'CDohoriz',CDohoriz,. . . 
'tailrot’,tailrot,... 
taildisk',taildisk,... 
•CON_R',CON_R,... 
'CON_chord',CON_chord, .. . 
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'CON_b’,CON_b,... 
'CON_omega',CON_omega,. . . 
'CON_cd',CON_cd,.., 
'CON_lt',CON_lt); 
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APPENDIX  AH.  STRUCTURE1.M 


This  script  M-file  creates  the  output  structure  SJPERF_OUTPUT. 


%  stracturel.m 

%  Structure  Consruction  for  JANRAD98  Performance  ouQjutm 

%  JANRAD  98  VERSION  5.0 

S_PERF_OUTPUT=struct(... 

'Dftise',Dfuse,...  %Fuselage  drag 

Urotor'.Hrotor,...  %Rotor  drag 

'Lwing’.Lwing,...  %WingIift 

'Dwing',Dwing,...  %Wing  drag 

TLhoriz^Lhoriz, . . .  %Horizontal  tail  lifT 

TDhoriz'.Dhoriz,...  %Horizontal  tail  drag 

'Lvert’.Lvert,. . .  %Vertical  tail  side  force 

Dvert'.Dvert,...  %Vertical  tail  drag 

'alpha'r,alphaT*57.3,...  %Tip  path  angle 
'betao',betao*57.3,...  %Rotor  coning  angle 
'rT2',rT2,...  %Location  of  mean  thrust 

thetao',thetao*57.3,...  %Rotor  Collective  pitch  at  .7  r/R 
'thetalc',thetalc*57.3,...  %lst  lat  cyclic  term-Al  (deg) 
'thetals',thetals*57.3,...  %lst  long  cyclic  term-Bl  (deg) 
'solidity',solidity,...  %solidity  (sigma) 

'DL',DL,...  %Disk  loading 

'FM'.FM,...  %Figure  of  Merit 

'CT_sig',CT_sig,...  %CT/sigma 

'CQ_sig’,CQ_sig,...  %CQ/sigma 

'CH_sig',CH_sig,...  %CH/sigma 

■Machtip'jMachtip,...  %Tip  mach  of  the  adv.  blade 

'mu', mu,...  %Advance  ratio 

T,T,...  %Rotor  thrust  required  (TPP) 

'Protor’,Protor, . . .  %Rotor  power  required 

'Qrotor’.Qrotor);  %Rotor  torque 
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APPENDIX  AL  STRUCTURE2.M 


This  script  M-file  creates  the  vector  structure  SJMATR_VEC. 


%  structurel.m 

%  Structure  Consruction  for  JANRAD98  Perfonnance_output.in 
%  JAI^AD  98  VERSION  5.0 

S_MATR_VEC=struct(.. . 

V,r,...  %radial  distance 

'dr', dr,...  %differential  radial  distance 

'psi',psi,...  %aziniuth 

'vi'.vi,...  %induced  velocity 

theta', theta,...  %collective  pitch 

'betat',betat,...  %coning  angle 

'alpha',alpha,. . .  %angle  of  attack 

Tpsi',Tpsi,...  %Thrust  at  azimuth  position 

'Npsi',Npsi,...  %Normal  Force  (lift)  at  azimuth  position 

'Mpsi',Mpsi,. . .  %Thrust  Moment  at  azimuth  position 

'DMpsi',DMpsi,...  %Drag  Moment  at  azimuth  position 

'dT',dT,...  %incremental  Thrust 

'dN',dN,...  %incremental  Normal  Force  (lift) 

'dM,dM,...  %incremental  Thrust  moment 

'dD',dD,...  %incremental  drag 

'cblade',cblade, . . .  %blade  chord 
'CL', CL,...  %incremental  CL  values 

'CD',CD,...  %incremental  CD  values 

'Reff',Reff);  %Effective  Blade  Radius 
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APPENDIX  AJ.  UNSTRUCTURE.M 


This  script  M-file  decomposes  the  SJPERF  INPUT  structure  into  36  separate 
input  parameter  variables.  These  variables  are  corrected  to  proper  units  used  in  Perf.m 
computations. 


%  unstructure.m 

%  Structure  De-Consruction  for  JANRAD98  Perf.m 
%  JANRAD  98  VERSION  5.0 

PA=S_PERF_INPl]T.PA; 

temp=S_PERF_INPUT.temp; 

Vinf=S_PERF_INPUT.Viiif; 

GW=S_PERF_INPUT.GW; 

omega=S_PERF_INPUT.omega; 

na2=S_PERF_INPUT.iiaz; 
thetao=S_PERF_INPUT.thetao; 
Swing=S_PERF_INPUT.  Swing; 
bwing=S_PERF_INPUT.bwing; 
CLwing=S_PERF_INPUT.CLwing; 
CDowing=S_PERF_INPUT.  CDowing; 
ewing=S_PERF_INPlJr.ewing; 
afoil=S_PERF_INPUT.afoil; 

a=S_PERF_INPUT.a; 

b=S_PERF_INPUT.b; 

R=S_PERF_INPUT.R; 
e=S_PERF_INPUT.e; 
grip=S_PERF_INPUT.grip; 
rchord=S_PERF_INPUT.rchord; 
ti=S_PERF_INPUT.tr; 
trst=S_PERF_INPUT.trst; 
twist=S_PERF_INPUT.twist; 
wblade=S_PERF_INPUT.wblade; 
nbe=S_PERF_INPUT.nbe; 
Taux=S_PERF_INPUT.Taux; 
Afh=S_PERF_rNPUT.Afh; 
Afi^S_PERF_INPUT.Afv; 
Svert=S_PERF_INPUT.  Svert; 
bvert=S_PERF_INPUT.bvert; 
CLver^S_PERF_INPUT.CLvert; 
CDovert=S_PERF_INPUT.CDovert; 
Shoriz=S_PERF_INPUT.  Shoriz; 
bhoriz=S_PERF_INPUT.bhoriz; 
CLhori2=S_PERF_INPUT.CLhoriz; 
CDohori2FS_PERF_INPUT.CDohoriz; 
tailrot=S_PERF_INPUT.tailrot; 
taildisk=S_PERF_INPUT.taildisk; 
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CON_R=S_PERF_INPUT.CON_R; 

CON_chord=S_PERF_INPUT.CON_chord; 

CON_b=S_PERF_INPUT.CON_b; 

CON_omega=S_PERF_INPUT.CON_omega; 

CON_cd=S_PERF_INPUT.CON_cd; 

CON_lt=S_PERF_INPUT.CON_lt; 


APPENDIX  AK.  UNSTRUCTURE1.M 


This  script  M-file  decomposes  the  S_USER_INPUT  structure  into  36  separate 
input  parameter  variables.  These  variables  are  the  actual  values  the  user  types  or  loads 
from  a  previously  saved  file 


%unstnicturel.m 

%  Structure  De-Consruction  for  JANRAD98  Perfonnance_input.m 
%  JANRAD  98  VERSION  5.0 

PA=S_USER_INPUT.PA; 

temp=S_USER_INPUT.temp; 

Vinf^S_USER_INPUT.Viiif; 

GW=S_USER_INPUT.GW; 

omega=S_USER_INPUT.omega; 

iiaz=S_USER_INPUT.iiaz; 

thetao=S_USER_INPUr.thetao; 

Swing=S_USER_INPUT.Swing; 

bwing=S_USER_INPUT.bwing; 

CLwing=S_USER_INPUT.CLwing; 

CDowing=S_USER_INPUT.CDowing; 

ewing=S_USER_INPUT.ewing; 

afoil=S_USER_INPUT.afoil; 

a=S_USER_INPUT.a; 

b=S_USER_INPUT.b; 

R=S_USER_INPUT.R; 

e=S_USER_INPUT.e; 

grip=S_USER_INPUT.grip; 

rchord=S_USER_INPUT.rchord; 

ti=S_USER_INPUT.tr; 

trst=S_USER_INPUT.trst; 

tvvist=S_USER_INPUT.twist; 

wblade=S_USER_INPUT.wblade; 

nbe=S_USER_INPUT.nbe; 

Taux=S_USER_INPUT.Taux; 

Afh=S_USER_INPUT.Afh; 

Afv=S_USER_INPUT.Afv; 

Svert=S_USER_INPUT.Svert; 

bvert=S_USER_INPUT.bveit; 

CLvert=S_USER_INPUT.CLvert; 

CDovert=S_USER_INPUT.CDovert; 

Shoriz=S_USER_INPUT.  Shoriz; 

bhoriz=S_USER_INPUT.bhoriz; 

CLhoriz=S_USER_INPUT.CLhoriz; 

CDohori2==S_USER_INPUT.CDohoriz; 

taildisk=S_USER_INPUT.taildisk; 

tailrot=S_USER_INPUT.tailrot; 
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CON_R=S_USER_INPUT.CON_R; 
CON_chord=S_USER_INPUT.CON_chord; 
CON_b=S_USER_INPUT.CON_b; 
CON_omega=S_USER_INPUT.CON_omega; 
CON_cd=S_USER_INPUT.  CON_cd; 
CON_lt=S_USER_INPUT.  CONJt; 
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APPENDIX  AL.  UNSTRUCTURE2.M 


This  script  M-file  decomposes  the  S_PERF_OUTPUT  structure  into  25  separate 
output  parameters.  These  variables  are  displayed  in  the  performance  output  figure 
window. 


%  unstructure2.in 

%  Stnicture  De-Consruction  for  JANRAD98  peiformanceoutpuLm 
%  JANRAD  98  VERSION  5.0 

Dfuse=S_PERF_Ol)TPUT.Dfuse; 

Hrotor=S_PERF_OUTPUT.Hrotor; 

Lwing=S_PERF_OUTPUT.Lwing; 

Dvdng=S_PERF_OUTPUT.Dwing; 

Lhoriz=S_PERF_OUTPlJT.Lhoriz; 

Dhoriz=S_PERF_OUTPUT.Lhoriz; 

Lvert=S_PERF_OUTPUT.Lvert; 

Dvert=S_PERF_OUTPUT.Dvert; 

alphaT=S_PERF_OUTPUT.alphaT; 

betao=S_PERF_OUTPUT.betao; 

rT2=S_PERF_OUTPUT.rT2; 

thetao=S_PERF_OUTPUT.thetao; 

thetalc=S_PERF_OUTPUT.thetalc; 

thetals=S_PERF_OUTPUT.thetals; 

solidity=S_PERF_OUTPUT.soli^ty; 

DL=S_PERF_OUTPUT.DL; 

FM=S_PERF_OUTPUT.FM; 

CT_sig=S_PERF_OUTPUT.CT_sig; 

CQ_sig=S_PERF_OUTPUT.CQ_sig; 

CH_sig=S_PERF_OUTPUT.CH_sig; 

Machtip=S_PERF_OUTPUT.Machtip; 

mu=S_PERF_OUTPUT.mu; 

T=S_PERF_OUTPUT.T; 

Protoi=S_PERF_OUTPUT.Protor; 

Qrotor=S_PERF_OUTPUT.Qrotor, 
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APPENDIX  AM.  UNSTRUCTURE3.M 


This  script  M-file  decomposes  the  S  MATR  VEC  structure  for  use  in  the  print 
and  save  commands. 


%  unstructureS.m 

%  Stmcture  De-Consniction  for  JANRAD98 
%  JANRAD  98  VERSION  5.0 


r=  S_MATR_VEC.r; 
dr=S_MATR_VEC.dr; 
psi=  S_MATR_VEC.psi; 
vi=  S_MATR_VEC.vi; 
theta=  S_MATR_VEC.theta; 
betat=  S_MATR_VEC.betat; 
alpha=  S_MATR_VEC.alpha; 
Tpsi=  S_MATR_VEC.Tpsi; 
Npsi=  S_MATR_VEC.Npsi; 
Mpsi=  S_MATR_VEC.Mpsi; 
DMpsi=  S_MATR_VEC.DMpsi; 
dT=  S_MATR_VEC.dT; 
dN=  S_MATR_VEC.dN; 
dM=  S_MATR_VEC.dM; 
dD=  S_MATR_VEC.dD; 
cblade=  SMATRVEC.cblade; 
CL=  S_MATR_VEC.CL; 

CD=  S_MATR_VEC.CD; 

RefP=  S_MATR_VEC.Reff; 
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APPENDIX  AN.  UNSTRUCTURE5.M 


This  script  M-file  decomposes  the  S_FIT_TR  structure  for  use  in  Perfm 


%  imstiucture5.m 

%  Structure  De-Consruction  for  JANRAD98  compound  tailrotor.m 
%  JANRAD  98  VERSION  5.0 


FIT_R=  S_FIT_TR_INPUT.nT_R; 

FIT_cd=  S_FIT_TR_INPUT.FIT_cd; 
FIT_signia=  S_FIT_TR_INPUT.FIT_sigma; 
FIT_omega=  S_Frr_TR_INPUT.FIT_omega; 
FIT_lt=  S_FIT_TR_riSiPUT.FIT_lt; 
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APPENDIX  AO.  PERF.M 


This  script  M-file  is  the  primary  computational  routine  for  JANRAD  98.  It  is 
launched  from  either  the  iteration_method_fcn.m  or  iteration_parameter_fcn.m 
Switchyard  Callback  function. 


%  Perf.m 

%  Main  Perfomiance  computation  routine. 

%  JANRAD  98  VERSION  5.0 

global  S_PERF_INPUT  S_PERF_OUTPUT  S_MATR_VEC  H_RADSPC  NL_TWIST_VAL 

if  S_PERF_INPUT.grip<  le-10, 

S_PERF_INPUT.grip=  le-10; 
end 

if  S_PERF_INPUT.Swing  <  le-10, 

S_PERF_INPUT.Swing=le-10; 

end 

if  S_PERF_INPUT.bwing  <  le-10, 

S_PERF_INPUT.bwing=le-10; 

end 

if  S  PERF  INPUT.ewing  <  le-10, 

SJPERF_lNPUT.ewing=  le-10; 
end 

if  S_PERF_INPUT.Shoriz  <  le-10, 

S_PERF_INPUT.horiz=  le-10; 
end 

if  S_PERF_INPUT.bhoriz  <  le-10, 

S_PERF_INPUT.bhoriz=le-10; 

end 

if  S_PERF_INPUT.Svert  <  le-10, 

SPERFINPUT.  Svert=  le-10; 
end 

if  S_PERF_INPUT.bvert  <  le-10, 

S_PERF_lNPUT.bvert=le-10; 

end 

S_PERF_lNPUT.Vinf=S_PERF_INPUT.Vinf*=1.68781; 
S_PERF_INPUT.twist=abs(S_PERF_INPUT.twist)/57.3; 
S_PERF_INPlJT.thetao=S_PERF_INPUT.thetao/57. 3 ; 
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unstructure 


switch  PICK 
case  1 

if  isemptyCMINUM) 

MIlSrUM=0;  %  sets  min  airspeed  default  to  0  kts 

end 

if  isempty(MAXUM) 

MAjhjM=160;  %  sets  max  airspeed  default  to  160  kts 
end 

if  isempty(INTER) 

INTER=20;  %  sets  INTERval  default  to  20  kts 
end 

if  MINIM  >  MAXIM  %  ensures  INTERval  is  the  correct  sign 
INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 


doitl='airspd=itervar;'; 

doit2='Vinf=airspd*6080.2/3600;';  %  converts  kts  to  ft/s 
m=(MAXUM-MINUM)/INTER+l;  %  computes  reqd  nbr  of  elements  for  vectors 


speed=zeros(l,m); 

mu=zeros(l,m); 

Lperc=zeros(l,m); 

ctonsig=zeros(l,m); 

LoverD=zeros(l,m); 

theone='airspd'; 


%  vector  for  each  airspeed  values 
%  vector  for  adv  ratio  values 
%  vector  for  wing  lift  percent  values 
%  vector  for  CT/sigma  values 
%  vector  for  tot  acft  W/De 


case  2 

if  isempty(MINlM) 

MINUM=0;  %  sets  min  altitude  default  to  0  ft 
end 


if  isemp1y(MAXUM) 

MAXIM=  1 5000;  %  sets  max  altitude  default  to  1 5000  ft 

end 

if  isemptyflNTER), 

INTER=  1000;  %  sets  INTERval  default  to  1000  ft 

end 

if  MTNUM  >  MAXIM  %  ensures  INTERval  is  the  correct  sign 
INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl='PA=itervar;'; 

doit2='temp  =  59-1.9811e-3/.5555*PA;';  %  sets  correct  ISA  temp 
%  for  given  alt  (deg  F) 

%  note:  59=SLS,  103=trop 

m=(MAXUM-MINUM)/INTER+l;  %  computes  reqd  nbr  of  elements  for  vectors 
altitude=zeros(  1  ,m); 
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theone='PA'; 


case  3 

if  isempty(MINUM) 

MrNUM=  10000;  %  sets  min  GW  default  to  10000  lbs 

end 

if  isempty(MAXUM) 

MAXUM=20000;  %  sets  max  airspeed  default  to  20000  lbs 

end 


if  isempty(lNTER), 

1NTER=2000;  %  sets  INTERval  default  to  2000  lbs 

end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 

lNTER=-abs(lNTER); 
else 

lNTER=abs(lNTER); 

end 


doitl='GW=itervar;'; 

doit2=' 

m=(MAXUM-MlNUM)/lNTER+l;  %  computes  reqd  nbr  of  elements  for  vectors 


wt=zeros(l,m); 

Tcoef6=zeros(l,m); 
Pcoefl^zeros(l,m); 
figmrt=zeros(l,m); 
theone='GW'; 
ifREGlME==l&PA==0&Vinf<=16.9 


%  vector  for  GW  values 

%  vector  for  Coeff  of  Thrust  values 
%  vector  for  Coeff  of  Power  values 
%  vector  for  Figure  of  Merit  values 


Ptige=zeros(l,m); 

end 


case  4 

if  isempty(MINUM) 

M1NUM=0;  %  sets  min  blade  twist  default  to  0  deg 

end 

if  isempty(MAXUM) 

Ma5cLJM=-12;  %  sets  max  blade  twist  default  to  -12  deg 
end 

if  isempty(lNTER), 

lNTER=-2;  %  sets  INTERval  default  to  -2  deg 
end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 
rNTER=-abs(INTER); 
else 

lNTER=abs(lNTER); 

end 

doitl=TWlST=itervar;'; 

doit2=twist=abs(TWlST)/57.3 

m=abs(MAXUM-MlNUM)/abs(lNTER);  %  computes  reqd  nbr  of  elements  for  vectors 

thetat=zeros(  1  ,m);  %  vector  for  blade  twist  values 

theone=TWlST’; 

case  5 

if  isemptyfMINUM) 
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MINUM=  1 ;  %  sets  min  blade  taper  ratio  default  to  1 

end 

if  isemp1y(MAXUM) 

MAXUM=0.5;  %  sets  max  blade  taper  ratio  default  to  0.5 

end 

if  isempty(INTER), 

INTER=-0. 1 ;  %  sets  INTERval  default  to  -0. 1 

end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 
INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl='tr=itervar;'; 
doit2=’  •; 

m=abs(MAXUM-MINUM)/INTER+ 1 ;  %  computes  reqd  nbr  of  elements  for  vectors 

taper=zeros(l,m);  %  vector  for  blade  taper  ratio  values 

theone='tr'; 

case  6 

if  isempty(MINUM) 

MINUM=0 . 1 ;  %  sets  min  blade  twist  default  to  0. 1  r/R 

end 

if  isemply(MAXUM) 

MAXUM=0.9;  %  sets  max  blade  twist  default  to  0.9  r/R 

end 

if  isemp1y(INTER), 

INTER=0. 1 ;  %  sets  INTERval  default  to  0. 1  r/R 

end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 

INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl=trst=itervar;'; 

doit2=' 

m=abs(MAXIM-MrNUM)/INTER+ 1 ;  %  computes  reqd  nbr  of  elements  for  vectors 

start=zeros(l,m);  %  vector  for  taper  ratio  start  position  values 

theone-trst'; 


case? 

if  isempty(MINUM) 

MINijM=50;  %  sets  min  wing  area  default  to  50  sq  ft 
end 

if  isempty(MAXUM) 

MA5hjM=80;  %  sets  max  wing  area  default  to  80  sq  ft 

end 

if  isempty(INTER), 

INTER=5;  %  sets  INTERval  default  to  5  sq  ft 
end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 

INTER=-abs(INTER); 
else 
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INTER=abs(INTER); 

end 

if  isempty(AR) 

AR=6;  %  sets  aspect  ratio  default  to  6 

end 

doitl='Swing=itervar;'; 

doit2='bwing=sqrt(AR*Swing);';  %  computes  wing  span  given  AR  and  wing  area 
m=abs(MAXUM-MINUM)/INTER+l;  %  computes  reqd  nbr  of  elements  for  vectors 
area=zeros(  1  ,m);  %  vector  for  wing  area  values 

theone-Swing'; 


case  8 

if  isempty(MINUM) 

MINUM=20;  %  sets  min  main  rotor  radius  to  20  feet 
end 

if  isemply(MAXUM) 

MAXIJM=36 ;  %  sets  max  main  rotor  radius  to  36  feet 

end 

if  isempty(INTER), 

INTER=2;  %  sets  INTERval  default  to  2  feet 
end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 
INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl='R=itervar,'; 

doit2=' 

m=abs(MAXUM-MINlJM)/INTER+ 1 ;  %  computes  reqd  nbr  of  elements  for  vectors 

imb_radius=zeros(l,m);  %  vector  for  rotor  radius  values 

theone='R'; 


case  9 

if  isemp1y(MINUM) 

MINUM=20;  %  sets  min  main  rotor  spd  to  20  rad/sec 

end 

if  isemply(MAXUM) 

MAXUM=36;  %  sets  max  main  rotor  spd  to  36  rad/sec 
end 

if  isempty(INTER), 

INTER=2;  %  sets  INTERval  default  to  2  rad/sec 
end 

if  MINUM  >  MAXUM  %  ensures  INTERval  is  the  correct  sign 
INTER=-abs(INTER); 
else 

INTER=abs(INTER); 

end 

doitl='omega=itervar;'; 
doit2='  ■; 

m=abs(MAXUM-MINUM)/INTER+l;  %  computes  reqd  nbr  of  elements  for  vectors 

rot_spd=zeros(  1  ,m);  %  vector  for  rotor  speed  values 

theone='omega'; 
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caseO 

MINUM=1;  %\ 

MAXUM=  1 ;  %  >  using  these  values  the  for  loop  is  effectively 
INTER=  1 ;  %/  non-existent  -  will  go  throu^  only  once 
doitl=’ 
doit2=’ 
end 

%%%  common  vectors  for  compilation  of  iterative  data  %%% 
ifPICK~=0 
thrust=zeros(l,m); 
auxthrast=zeros(l,m); 

RHP=zeros(l,m); 

Totpwr=zeros(l,m); 

angle=zeros(l,m); 

Drag=zeros(l,m); 

RotDrag=zeros(l,m); 

Wingdrag=zeros(l,m); 

Winglift=zeros(  1  ,m); 
coll_pit=zeros(  1  ,m); 
lat_coeff=zeros(l,m); 
long_coeff=zeros(l,m); 

Auxpwr=zeros(l,m); 
diskload=zeros(l  ,m); 

AR^l=zeros(l,m); 

rot_spd=zeros(l,m); 

end 


switch  tailrot 
case  1 

%%%  vectors  for  Conventional  Tail  calculations  %%% 
ifPICK'-=0 
thrtail=zeros(l,m); 
pwrtail=zeros(  1  ,m) ; 
end 

Atail  =  pi*CON_R^2;  %  Area  of  tail 
Atailbl=2*CON_R*CON_chord; 
sigmatail  =  Atadbl/ Atail;  %  Solidity  of  tail 

case  2 

%%%  vectors  for  Fan-In  Tail  calculations  %%% 
ifPICK^ 

Tfin=zeros(l,m); 

Tfan=zeros(l,m); 

pwrfani=zeros(l,m); 

pwrfanp=zeros(l,m); 

pwrfant=zeros(l,m); 

end 

%%%  Fan-in-Tail  Parameters  %%% 
imstmctureS 

Afan  =  pi*FIT_R^2;  %  Area  of  fan 
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case  3 
end 


%%%  Beginning  of  Iteration  Loop  %%% 

p^Oj 

for  itervar  =  MINUM:IhnER:MAXUM 
eval(doitl)  %  reads  and  evaluates  the  string  'doitl'  assigned  above 
%  assigns  itervar  to  the  reqd  var  needed  to  complete  iteration 
eval(doit2)  %  reads  and  evaluates  the  string  'doit2'  assigned  above 
%  used  if  input  variable  needs  some  type  of  manipulation 
p=p+l;  %  used  to  move  to  next  vector  element 

set(H_STATUS,'String','ROTOR  PERFORMANCE  ROUTINE') 
tic 

set(H_STATUSl, 'String', 'START  ELAPSED  TIME') 
pause(3) 

%%%  account  for  vertical  drag  on  wing  and  horizontal  tail  %%% 
if  taildisk==l 

Afvl=Afv+3*(Swing+Shoriz);  %  this  assumes  a  vertical  Cd  of  1.2  for  the 
elseif  taildisk==2  %  wing  and  horiz  tail  and  a  vertical  Cd  of 

Afv^l=Afv+3*Swing  %  0.4  for  the  fuselage  (i.e.  1.2/.4  =  3) 
end  %  thus  making  wing/tail  effectively  larger 

%  when  hvr  thrust  calc  using  Cd=0.4 

trim 

%%%  ***  Calculation  of  output  parameters  ***  %%% 

load  perftemp  %  Eccles  addition  -  program  was  not  recogruzing 
%  mchord  and  DMpsi. 

Paux=(Taux*Vinf)/(550*AUXEFF);  %Auxiliary  Power  reqd 
Protor=mean(DMpsi)*b*omega/550;  %  Rotor  pwr  reqd,  NOT  total  pwr 
Qrotor=mean(DMpsi)*b;  %  Rotor  torque  reqd 

soiidity=b*mchor^(pi*R); 

CQ=Qrotor/(Adisk*rho*Vtip^2*R); 

CH=Hrotor/(Adisk*rho*Vtii/'2); 

CT_sig=CT/solidity; 

CQ_sig=CQ/solidity; 

CH_sig=CH/solidity; 

Machtip=(Vtip*cos(alphaT)+Vinf)/(49.05*sqrt(temp+460)); 
if  Vinf  <  16.9, 

DL=T/(pi*R^2); 

FM=(T*sqrt(DL/(2*rho)))/(550*Protor); 

else 

DL=0; 

FM=0; 

end 

switch  tailrot 
case  1 

%%%%  Conventional  Tail  Rotor  Power  Calculations 
ThrusttF  Qrotor/CON_lt;  %  Thrust  reqd  for  anti-torque 
vit=sqrt(Thrustt/2*rho*Atail); 

Ptail=(Thrustt*vit/550)+(((rho*Atailbl*((CON_omega*CON_R)^3)*CON_cd/8)/550)*(l+3*mu^2)); 
Pace  =  106.25-K).01275*Protor;  %  Pwr  for  accessories 
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Ptot  =  Protor+-Ptail+Pacc+Paiix;  %  Total  pwr  reqd 

CP=Ptot*550/(  Adisk*rho*  Vtip^3);  %  Coefficient  of  Pwr  based  on  Ptot 

case  2 

%%%%  Compute  Fan  and  Access/Xmsn  Power  Reqd  in  Fwd  Fit  %%%% 
vifan  =  abs(sqrt((Qrotor/FIT  Jt-Lvert)/(rho*  Afan)));  %  use  abs  in  case  complex 

(Qrotor^ITJt-Lvert<0); 

Thmstf  =  Qrotor/FIT  lt;  %  Thrust  reqd  for  anti-torque 

Pfani  =  0.5*rho*Afan*vifan^3/550;  %  Fan  induced  pwr 

Pfanp  =  rho* Afan*  Vtip^3  *FIT_sigma*FIT_cd/4400;  %  Fan  profile  pwr 

Pace  =  106,25+0.0 1275*Protor,  %  Pwr  for  accessories 

Ptot  =  ProtorfPfani+Pfanp+Pacc;  %  Total  pwr  reqd 

CP=Rot*550/(Adisk*rho*  Vtip^3);  %  Coefficient  of  Pwr  based  on  Ptot 

case  3 

end 

%%%%  fflGE  total  pwr  %%%% 
ifREGIME==l 

viave=sqrt(DL/(2*rho));  %  Induced  vel  -  hoge 

delpwi=T*viave*0.23/550;  %  Deer  in  pwr  due  to  grd  effect 

Prtrige=Protor-delpwr;  %  Rotor  pwr  -  hige 

Tige=Prtrige*550/(omega*lfan);  %  Rotor  thrust  -  hige 

vifige=sqrt(Tige/(rho*Afan));  %  Induce  vel  -  hige 

Pfanige=0.5*rho*Afan*vifige^3/550;  %  Fan  pwr  -  hige 
Paccige=106.25+0.01275*Prtrige;  %  Access  pwr  -  hige 

Ptotige=Prtrige+Pfanige+Pfanp+Paccige;  %  Tot  pwr  -  hige 
end 

WonDe=GW/(550*Ptot/(Vinf+.  1));  %  Total  aeft  W/De  (lifl/drag) 

% .  1  added  for  case  when  Vinf=0 
%%%  Collecting  and  vectoring  all  the  calculated  data  %%% 

%%%  vectors  specific  to  desired  iteration 
switch  PICK 
case  1 

speed(p)=airspd;  %  vector  of  airspeeds 

mu(p)=VmffVtip;  %  vector  of  advance  ratios 

ctonsig(p)=CT_sig;  %  vector  of  CT  on  sigma 
LoverD(p)= WonDe;  %  vector  of  W/De 
rot_spd(p)=omega;  %  vector  of  main  rotor  speeds 

case  2 

altitude(p)=P  A;  %  vector  of  altitudes 
case  3 

wt(p)=GW;  %  vector  of  GW 

case  4 

thetat(p)=TWIST;  %  vector  of  blade  twist 
case  5 

taper(p>=tr,  %  vector  of  taper  ratio 
case  6 

start(p)=trst;  %  vector  of  starting  position  of  blade  taper 
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case? 

area(p)=S\ving;  %  vector  of  wing  wetted  area 
case  8 

inrb_radius(p)=R;  %  vector  of  main  rotor  radius 
case  9 

rot_spd(p)=omega;  %  vector  of  main  rotor  speeds 
end 

ifREGIME=l 

Ptige(p)=Ptotige;  %  vector  of  total  hp  in  hige 
end 

%%%  vectors  common  to  all  iterations 
ifPICK~=0 

thrust(p)=T ;  %  vector  of  main  rotor  thrust 

auxthrust(p)=Taux;  %  vector  of  Aux  Tlmist 
RHP(p)=Protor  %  vector  of  rotor  hpreqd 
Totpwr(p)=Rot  %  vector  of  total  hp  reqd 
Auxpwr(p)=Paux;  %  vector  of  Aux  hp  rqd 
angle(p)=alphaT*57.3;  %  vector  of  tip  path  plane  angle 
Wingdrag(p)=Dwing;  %  vector  of  wing  drag 

Diag(p)=Drotor+Dfuse+Dveit+Dhoriz+Dwing;  %  vector  of  tot  acft  drag 
Wmglifl(p)=Lwing;  %vector  of  wing  lift 
Tfin(p)=Lvert;  %  vector  of  vertical  fin  lift 
Lperc(p)=Lwing/GW*  100;%  vector  wing  lift  percentage 
if  tailrot=l 

thrtail(p)=Thrustt;  %  vector  of  tail  thrust 
pwitail(p)=Ptail;  %  vector  of  tail  power 
else  tailrot=2 

Tfan(p)=Qrotor/lfan;  %  vector  of  thrust 
pwrfani(p)=Pfani;  %  vector  of  fan  induced  pwr 
pwrfanp(p)=Pfanp;%  vector  of  fan  profile  pwr 
pwrfant(p)=Pfani+Pfanp;  %  vector  of  fan  total  pwr 
end 

Rotdrag(p)=Hrotor  %  vector  of  rotor  drag 
Tcoeff(p)=CT;  %  vector  of  Coefficient  of  Thrust 
Pcoeff(p)=CP;  %  vector  of  Coefficient  of  Power 
fignirt(p)=FM;  %  vector  of  Figure  of  Merit 
diskload(p)=DL;  %  vector  of  Disk  Loading 
coll_pit(p)=thetao*57.3;  %vector  of  collective  pitch@.7R 
lat_coeff(p)=thetalc*57.3;  %vector  of  1st  lateral  cyclic  term 
long_coeff(p)^etals*57.3;  %vector  of  1st  longitudinal  cyclic  term 

%eval('theone');  %  displays  current  value  of  iterative  variable 
end  %  'end' needed  to  complete  the 'for' loop 

end  %  this  is  the  'end'  needed  to  complete  the  'for'  loop 

%%%%  Save  iteration  data  for  future  processing  %%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%  format:  save  <filename>  varl  var2  var3  % 

%%%  (note:  all  variables  must  be  valid  or  will  get  error)  % 

%%%  Works  well  to  create  short  m-file  to  graph  this  calculated  data  % 

%%%  just  use  'load  <filename>’  at  the  begirming  of  the  file  to  % 
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%%%  read  all  the  vectors  which  are  stored  in  the  .mat  file  % 
ifPICK—O 

save  output  Totpwr  angle  RHP  thrust  Wingdrag  Drag  Rotdrag  coll_pit  lat_coeff  long  coeff... 

figmrt  Tcoeff  Pcoeff  Winglift  Auxpwr  auxthrust  Lperc  diskload 
if  tailrot==l 

save  tailop  thrtail  pwrtail 
else 

save  tailop  Tfiin  Tfan  pwrfani  pwifanp  pwrfant 
end 
end 

switch  PICK 
case  1 

save  extral  speed  mu  ctonsig  LoverD  Lperc  RHP  Tcoeff  Pcoeff... 
figmrt  m  rot_spd 

case  2 

save  extral  altitude 
case  3 

save  extras  wt  Tcoeff  Pcoeff  figmrt 
case  4 

save  extra4  thetat 
case  5 

save  extras  taper 
case  6 

save  extra6  start 
case  7 

save  extra?  area 
case  8 

save  extras  mrb  tadius 
case  9 

save  extra9  rot_spd 
end 

ifREGIME==l 
save  extral  0  Ptige 
end 

set(H_STATUS, 'String', 'COMPLETING  CALCULATIONS  ...') 
set(H_STATUSl,'String’,['RUN  ELAPSED  TIME  IS '  num2str(fix(toc)) '  SECONDS']) 
pause(3) 

fid=fopen('prmt_temp','w+'); 

^rintf(fid,^t  '“**  MODIFIED  USER  INPUT  ***\n\n'); 

lprintf(fid,'\t  Forward  velocity  =  %6.0f  kts\n',Vinfil.69); 

:^rintf(fid,^t  Temperature  =  %6.0f  degs  F\n',temp); 

^rintfifid,*)!  Pressure  altitude  =  %6.0f  ft\n',PA); 

^rintf(fid,^t  Gross  weight  =  %6.0f  lbs\n',GW); 

1^rintf(fid,'\t  Number  of  blades  =  %6.0f  \n',b); 

^rintf(fid,'\t  Rotor  radius  =  %6.2f  ft\n',R); 

fyrintf(fid,’\t  Blade  root  chord  =  %6.2f  ft\n',rchord); 
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ifNL_TWIST_VAL=l 
:l^iintf(fid,’\t  Blade  twist  =  \n'); 

l^rmtf(fidAt  %6.2f  degs\n',NL_TWIST*57.3); 

else 

^rintfCfid,^!  Blade  twist  =  %6.2f  degs\n',-l *twist*57.3); 

end 

^^intf(fid,^t  Blade  lift  curve  slope  =  %6.2f  \n',a); 

^rintf(fid,^t  Blade  weight  =  %6.2f  lbs\n',wblade); 

^rintf(fid,^t  Rotational  velocity  =  %6.2f  rads/sec\n', omega); 

4)rintf(fid,'\t  Blade  grip  length  =  %6.2f  ft\n',grip); 

^rintf(fid,^t  Hinge  offset  =  %6.2f  ft\n',e); 

^rintf(fid,^t  Equivalent  flat  plate  area  =  %6.2f  ft^2\n',Afh); 
^rintf(f^d,^t  Vertical  projected  area  =  %6.2f  ft^2\n',Afv); 
:^rintf(fid,^t  Wing  area  =  %6.2f  fl'^2\n',Swing); 

4)rintf(fid,%t  Wing  span  =  %6.2f  ft\n',bwing); 

fyrintf(fid,'\t  Wing  CL  =  %6.2f  \n',CLwing); 

^rintf(fid,^t  Wing  CDo  =  %6.4f  \n',CDowing); 

4)rintf(fid,^t  Wing  efBciency  factor  =  %6.2f  \n’,ewing) ; 
4)^intf(^id,^t  Horizontal  tail  area  =  %6.2f  ft^2\n',Shoriz); 

i^rintf(fid,^t  Horizontal  tail  span  =  %6.2f  ft\n',bhoriz); 

4)rintf(fid,^t  Horizontal  tail  CL  =  %6.2f  \n',CLhoriz); 

^rintf(fid,’\t  Horizontal  tail  CDo  =  %6.4f  \n',CDohoriz); 

^rintf(fid,^t  Vertical  tail  area  =  %6.2f  ft''2\n',Svert); 

^rintf(fid,'\t  Vertical  tail  span  =  %6.2f  ft\n',bvert); 

i^rintf(fid,'\t  Vertical  tail  CL  =  %6.2f  \n',CLvert); 

^rintf(fid,^t  Vertical  tail  CDo  =  %6.4f  \n',CDovert); 

^rintf(fid,'\t  Auxiliary  thrust  =  %6.0f  lbs\n',Taux); 

Q)rintf(fid,^t  Number  of  Azimuths  =  %6.0f  \n',naz); 

15printf(fid,'\t  Collective  Pitch  =  %6.2f  degs\n',thetao*57.3); 

^rintf(fid,'\t  Airfoil  Type  =  %6.0f  \n',afoil); 

fyrintf(fid,M  T^r  Ratio  =  %6.2f\n',tr); 

QjrintffficL^t  Taper  Ratio  Starts  At  =  %6.2f  fl\ii',trst); 

^rintf(fid,^t  Number  of  Blade  Elements  =  %6.0f  \n',ii^); 

4)rintf(fid,'\t  Tail  Under  Main  Rotor  (1-yes  2-no)  =  %6.0f  \f,taildisk); 
fclose(fid); 


%  ***  output  to  didc  (text  file)  *** 


fid=fopen('print_templVw+'); 

^rintf(fid,’\t  ***  RESULTS  ***\n\n’); 

^rintf^fid,*)!  Forward  velocity  =  %6.0f  te\n',Vin£'L69); 

4)rintf(fid,^t  Temperature  =  %6.0f  degs  F\n',temp); 

^rintf(fid,'\t  Pressure  altitude  =  %6.0f  ft\n',PA); 

^rintf(fid,'\t  Gross  weight  =  %6.0f  lbs\n',G\^; 

1^^mtf(fid,^t  Number  of  blades  =  %6.0f  \n',b); 

^rintf(fid,'\t  Rotor  radius  =  %6.2f  ft\n',R); 

^rintf(fid,’\t  Blade  mean  chord  =  %6.2f  ft\n',mchord); 

if  NL_TWIST_VAL==  1 
^rintf(fid,^t  Blade  twist  =  \n'); 

fyIintf(fid,^t  %6.2f  degs\n',NL_TWIST*57.3); 

else 
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^rintf(fid,'\t  Blade  twist  =  %6.2f  degs\n',-l  *twist*57.3); 

end 

fprintf(fid,'\t  Blade  lift  curve  slope  =  %6.2f  \n',a); 
fyrintf(fid,'\t  Blade  weight  =  %6.2f  lbs\n',wblade); 

f^rintf(fid,'\t  Rotational  velocity  =  %6.2f  rads/sec\n', omega); 
fprmtf(fid,'\t  Blade  grip  length  =  %6.2f  ft\n',grip); 

^rintf(fid,'\t  Hinge  offset  =  %6.2f  ft\n',e); 

^rintf(fid,'\t  Equivalent  flat  plate  area  =  %6.2f  ft^2\n',Afh); 
Q)rintf(fid,'\t  Vertical  projected  area  =  %6.2f  ft^2\n',Afv); 
fprintf(fid,^t  Wing  area  =  %6.2f  ft''2\n',Swmg); 

^rintf(fid,^t  Wing  span  =  %6.2f  ft\n',bwing); 

fprintf(fid,'\t  Wing  CL  =  %6.2f  \n’,CLwing); 

^rinlf(fid,'\t  Wing  CDo  =  %6.4f  \n',CDowing); 

fprintf(fid,'\t  Wing  efficiency  factor  =  %6.2f  \n',ewing); 
fprintf(fid,'\t  Horizontal  tail  area  =  %6.2f  ft''2\n',Shoriz); 
fprintf(fid,'\t  Horizontal  tail  span  =  %6.2f  ft\n',bhoriz); 
fprintf(fid,'\t  Horizontal  tail  CL  =  %6.2f  \n',CLhoriz); 

]^rintf(fid,'\t  Horizontal  tail  CDo  =  %6.4f  \n',CDohoriz); 
j^rintf(fid,'\t  Vertical  tail  area  =  %6.2f  ft^2\n',Svert); 

^rintf(fid,'\t  Vertical  tail  span  =  %6.2f  ft\n',bveit); 

^rintf(fid,'\t  Vertical  tail  CL  =  %6.2f  \n',CLvert); 

^rintf(fid,M  Vertical  tail  CDo  =  %6.4f  \n',CDovert); 
fjprmtf(fid,^t  Fuselage  drag  =  %6.0f  lbs\n',Dfuse); 

^rintf(fid,'\t  Rotor  drag  =  %6.0f  lbs\n',Hrotor); 

Q)rintf(fid,'\t  Wing  lift  =  %6.0flbs\n',Lwing); 

^rintf(fid,'\t  Wing  drag  =  %6.0f  lbs\n',Dwing); 

i^rintf(fid,'\t  Horizontal  tail  lift  =  %6.0f  lbs\n',Lhoriz); 
fprintftfid,  '\t  Horizontal  tail  drag  =  %6.0f  lbs\n',Dhoriz); 
fprintf(fid,'\t  Vertical  tail  side  force  =  %6.0f  lbs\n',Lvert); 

^rintf(fid,'\t  Vertical  tail  drag  =  %6.0f  lbs\n',Dvert); 

^rintf(fid,'\t  Auxiliary  thrust  =  %6.0f  lbs\n',Taux); 

^rintf(fid,^t  Tip  path  angle  =  %6.2f  degs\n',alphaT*57.3); 

^rintfffidj^t  Rotor  coning  angle  =  %6.2f  degs\n',betao*57.3); 

^rintf(fid,'\tLocation  of  mean  thrust  (r/R)  =  %6.2f  \n',rT2); 

J^rintf(fid,'\t  Collective  pitch  at  .7  =  %6.2f  degs\n',thetao*57.3); 

fprintf(fid,'\t  1st  lat  cyclic  term-Al  (deg)  =  %6.2f  \n’,thetalc*57.3); 
fprintf(fid,'\tlst  long  cyclic  term-Bl  (deg)  =  %6.2f  \n',thetals*57.3); 
^rintf(fid,'\t  solidity  =  %6.3f  \n',solidity); 

^rintf(fid,'\t  Disk  loading  =  %6.2f  lbs/ft^2\n',DL); 

ft)rintf(fid,'\t  Figure  of  Merit  =  %6.2f  \n',FM); 

^rintf(fid,'\t  CT/sigma  =  %6.3f  \n’,CT_sig); 

fyrintf(fid,'\t  CQ/sigma  =  %6.4f  \n',CQ_sig); 

fyrintf(fid,'\t  CH/sigma  =  %6.4f\n',CH_sig); 

^rintf(fid,'\t  Tip  mach  of  the  adv.  blade  =  %6.3f  \n',Machtip); 
^rintf(fid,'\t  Advance  ratio  =  %6.3f  \n',mu); 

fprintf(fid,'\t  Rotor  thrust  required  (TPP)  =  %6.0f  lbs\n',T);; 
fj3rintf(fid,'\t  Rotor  power  required  =  %6.0f  h.p.\n',Protor); 
i^rintf(fid,'\t  Rotor  torque  =  %6.0f  ft-lbs\f  ,Qrotor); 

fclose(fid); 

%  ***  Configuring  variables  for  output  *** 
theta=theta*57.3; 

%betat=|betattwist*(0.7-(Reff+(R-Reff)/2)/R)]*57.3; 


244 


alpha=alpham*57.3;,alpha=[alphazeros(size(psi))]; 

Mpsi=Mpsi(;,length(Mpsi(  1, ;))-! ) ; 

dM=[dMddM]; 

psi=psi*57.3; 

r=[r(R-(R-RefiE)/2)]; 

vi=[vi  0]; 

set(H_STATUS, 'String', 'ST AND  BY  FOR  OUTPUT...') 
pause(3) 

structurel 

structure! 

set(H_STATUS, 'String',") 

performance_output 

close(H_IT_METH) 
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APPENDIX  AP.  TRIM.M 


This  script  M-file  is  a  subroutine  to  trim  the  rotor  system.  It  is  called  in  Perf.m. 


%  Trim.m 

%  Trim  routine  for  collective/cyclic. 

%  JANRAD  98  VERSION  5.0 

global  RADSPC_VAL  NL_TWIST_VAL  NEW_AUX_VAL  FIX_TPP_VAL  NEW_TPP 


ifget(H_AS,*Value')==l 

IT_PARAM='AIRSPEED'; 

IT_UNIT='KTS'; 
elseif  get(H_AL,'Value')==l 
IT_PARAM='AL'nTUDE'; 
n’_UNIT=TT; 
elseif  get(H_GW,’Value')==l 
IT_PARAM='GROSS  WEIGHT'; 

IT_UNn'=’LBS'; 
elseif  get(H_BT,’Value')=l 
IT_PARAM='BLADE  TWIST; 

IT_UNIT='DEG'; 
elseif  get(H_BTR,’Value')=l 
IT_PARAM='BLADE  TAPER  RATIO'; 

IT_UNIT="; 

elseif  get(H_SOT,'Value')==l 
rr_PARAM='START  OF  TAPER'; 

IT_UNIT='Fr; 
elseif  get(H_WSA,'Value')==l 
IT_PARAM='WING  SPAN  AREA’; 

IT_UNIT='FT^2'; 
elseif  get(H_RBR,'Value')=l 
IT_PARAM='ROTOR  BLADE  RADIUS'; 

IT_UNIT='Fr; 
elseif  get(H_RBS,'Value')==l 
rr_PARAM='ROTOR  BLADE  SPEED'; 

IT_UNIT=’RAD/SEC'; 

end 

set(H_STATUS,'String',EXECUTING  ROTOR  TRIM  ROUTINE’) 
set(H_STATUSl, 'String', ['RUN  ELAPSED  TIME  IS  '  nuni2str(fix(toc))  ’  SECONDS']) 
ifget(H_NI,'Value')==l 
set(H_STATUS3,’String’,’') 
else 

set(H_STATUS3,'String',['nERATION  PARAMETER:  ’  IT_PARAM  ’  = '  num2str(itervar) 
num2str(IT_UNIT)]) 
end 

pause(3) 
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%  ***  calculation  of  required  parameters  *** 
rho=002377*(-.000031*PA+(-.002*temp+1.118)) 

%  ***  first  guess  at  rotor  profile  drag  ( H  force)  *** 
ifVinf<16.9, 

Drotoi=0; 

else 

Drotor=Vmf*’(rho/.002377); 

end 


q=0.5*rho*Vinf'2; 


Adisk=pi*R‘^2; 


Vtip=omega*R; 
temp_iank=temp+459.67; 
spd_snd=49.  l*sqrt(temp_rank); 
Dfuse=q*Afh; 


CDwing=CDowing+(CLwing'^2/(ewing*pi*(bwing^2/Swing))); 

CDhoriz=CDohoriz+(CLhori2^2/(.8*pi*(bhoriz^2/Shoriz))); 

CDvert=CDovert+(CLvert''2/(.8*pi*(bvert'^2/Svert))); 


Dwing=q*CDwing*Swing; 


Dhoriz=q*CDhoriz*Slioriz; 

Dvert=q*CDvert*Svert; 

AUXEFF=.7; 

ifNEW_AUX_VAL==l 

Dflotal=(Dfuse+Dwing+Dhoriz+Dvert); 

ifVinf<16.9 

Taux=0; 

else 

Taux=Dftotal; 

end 

S_PERF_INPUT.Taux=Taux; 

S_USER_INPUT.Taux=Taux; 

else 

Dflotal=(Dfiise+Dwing+Dhoriz+Dvert)-Taux 

end 

L\ving=q*CL\ving*Swing 

Lhoriz=q*CLhoriz*Shoriz; 
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Lvert=q*CLvert*Svert; 

Lftotal=Lwing+Lhoriz+Lvert; 
ifFIX_TPP_VAL==l 
alphaT=NEW_TPP;  %set  tip  path  angle 

else 

alphaT=atan2((Dftotal+Drotor),(GW-Lftotal)); 

end 

mu=Vinf*cos(alphaT)A^tip; 

if  Vinf  <  16.9, 

T=1.05*GW 

else 

T=(GW-Lftotal)/cos(alphaT) 

end 

CT=T/(Adisk*rho*Vlip''2); 

%  Values  to  check  output 

%  ***  setup  blade  radius  elements,  azimuth  elements, 

%  induced  velocity  distributions,  and  determination 

%  of  coning  angle  and  tip  loss  parameter  *** 

B=l-(sqrt(2*CT)/b); 

RefiNB*R; 

Rbai=Reff-e; 

ifRADSPC_VAL==l 
NEW_rl=[NEW_r,  ReffiTR]; 
n=length(l^W_rl); 
di=diff(NEW_rl)*R; 
r=(NEW_rl(l:n-l)*R)+dr/2; 
else 

di=(Reff-grip)/nbe; 

r=grip:dr:RefP-dr;,r=r+dr/2; 

end 

ifNL_TWIST_VAL==l 

NL_TWIST=NL_TWIST/57.3; 

n=length(NL_TWIST); 

ifRADSPC_VAL==l 

y=((RefEai)-NEW_r(n))*((NL_TWIST(n)-NL_TWIST(n-l))/(NEW_r(n)-NEW_r(n-l))); 

else 

y=((Refi61l)-r(n))*((NL_TWIST(n)-NL_TWIST(n-l))/(r(n)-r(n-l))); 

end 

NL_TWIST1=[NL_TWIST  (NL_TWIST(n)+y)]; 
m=length(NL_TWISTl); 
dTW=diff(NL_TWISTl); 
twist=(NL_TWISTl(l:m-l))+dTW/2; 
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betat=twist; 

else 

betat=twist*(0.7-(r/R)); 

end 

rT  1=0.7;,%  ***  first  guess  at  rT  *** 

RbarT=rTl  *Rbar, 
mblade=wblade/32. 17; 

betao=asin((T/b*RbarT-(.5*(R-e)+e)*wblade)/((.5*(R-e)+e)^2*omega''2*mblade)); 

psi=0;360/naz:360-360/naz;,psi=psi'/57.3; 

%%  set  up  vector  of  blade  element  chords  and  then  varies  them  as 
%%  requested  with  the  blade  taper  and  blade  taper  start  position 
%%  rchord=root  chord 

%%  cblade=vector  of  blade  element  chord  lengths 
%%  tr=taper  ratio  (tip/root) 

%%  trst=taper  ratio  start  position  (r/R) 

cblade=rchord*ones(size(r));  %  gives  all  elements  same  chord  length  initially 
if  tr=0  %  prevents  division  by  zero  later  in  code 
ti=l;  %  in  case  0  is  enter  for  taper  ratio  instead 
end  %  of  1  for  no  taper 
iftrst=0 

slope=(rchord-rchord*tr)/(Reff-grip);  %  Modifies  each  element 
cblade=cblade-slope*(r-grip);  %  chord  length  wit  input 
tchord=cblade(nbe);  %  t^er  ratio  which  has  been 

mchord=sum(cblade)/nbe;  %  been  converted  into  a  slope 

%  top  portion  takes  into 

else  %  account  the  possibility  that 

slope=(rchord-rchord*tr)/(R*(l-trst));%  a  0  start  position  is  really  at 
z=fix(nbe*trst);  %  the  start  of  the  aero  portion 
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if  z<=l  %  prevents  beginning  index  fin  being  zero 
2=1; 
end 

cblade(z:nbe)=cbIade(z:nbe)-(r(z:nbe)-r(z))*slope; 

tchord=cblade(nbe); 

mchord=sum(cblade)/nbe; 

end 

%  ***  induced  velocity  determination  *** 
if  Vinf  <  16.9, 

A=4*pi; 

Bv=(b/2)*omega*a.  *cblade; 

Tv=0; 

delT=T-Tv; 

while  abs(delT)  >  .01*T%  Prouty  Eqns  for  Hover 
thetav=betat+thetao; 

C=(-b/2).*cblade*omega''2.*r*a.*thetav; 

vi=(-Bv+sqrt(Bv.'^2-(4*A*C)))/(2*A); 

dTv=(b/2)*rho*((omega*r).^2)*a.*(thetav-(vi./(omega*r))).*cblade.*dr, 

Tv=sum(dTv); 

delT=T-Tv; 

ifdeIT<0, 

thetao=thetao-0.5*thetao*abs(delT/T); 

else 

thetao=thetao+0.5*thetao*abs(delT/T); 

end 

end 

else  %  Wheatley  Eqn  for  Fwd  fit 

lamdaT=0; 
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lamda=l; 

while  abs(lamdaT-lainda)>le-4 
lamda=laindaT; 

lamdaT=mu*sin(alphaT)-K).5*CT/sqrt(lamdaT''2+mu^2); 


end 


vi=lamdaT*Vtip-Viiif'‘sm(alphaT); 

vi=vi*ones(size(r)); 

end 

%  ***  first  guess  at  theta  *** 

thetalc=0.035*((0.0006e-3*Vinf'2-H).244e-3*Vinf)/0.105); 

thetals=-0.087*((0.0006e-3*Vinf'2-H).244e-3*Vinf)/0.105); 

theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 

%  ***  rotor  trimming  routine  *** 


set(H_STATUS,'String’, TRIMMING  COLLECTIVE') 

set(H_STATUSL'String’,rRUN  ELAPSED  TIME  IS '  num2str(fix(toc))  ’  SECONDS']) 
pause(3) 

set(H_STATUS2, 'String',") 
k=l; 

error0=(T*.02)+l; 
while  abs(errorO)  >  T*.02 

set(H_STATUS2,'String',[’COLLECTIVE  TRIM  ROUTINE  IS  ON  ITERATION  #  ',num2str(k)]) 
set(H_STATUSl,'String',['RUN  ELAPSED  TIME  IS '  num2str(fix(toc)) '  SECONDS']) 
Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

if  k>l,  %  Eccles  change:  These  three  lines  were  added. 

error 1; 

end 
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erTorO=T-(mean(Tpsi)*b); 
if  errorO  <  -T*.02, 

thetao=thetao-0.35*thetao*abs(1.5*error0/T)*(l-mu); 
elseif  errorO  >  T*.02, 

thetao=thetao+0.3  5  *thetao*abs(l .  5*errorO/T)*(  1  -mu); 
end 

theta=thetao+thetalc.  *cos(psi)+thetals.  *sin(psi); 
ifk>l, 

if  abs(errorO)  >  abs(errorl), 
clc 

trimwaming 
set(H_GO,’Enable';off); 
set(H_RES,’Eiiable’,’oflE’); 
set(H_RUPT,’Enable’,'off); 
set(H_BK, 'Enable', 'on'); 
error('***  Did  Not  Trim  ***') 
end 

end 

errorl=©tTorO; 

k=k+l; 

end 

set(H_STATUS, 'String', TRIMMING  CYCLIC) 

set(H_STATUSl,’String',['RUN  ELAPSED  TIME  IS  '  num2str(fix(toc)) '  SECONDS']) 

set(H_STATUS2,'Stimg',") 

pause(3) 

tO=clock; 

k=I; 

eiTor0=(((T/b)*rTI*(R-grip))*.04)+I; 
while  errorO  >  ((T/b)*rTl*(R-grip))*.04 

set(H_STATUS2,’String',['CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION  #  ',num2str(k)]) 

set(H_STATUSI,'String',rRUN  ELAPSED  TIME  IS '  num2str(fix(toc))  '  SECONDS']) 
time=etime(clock,tO); 

if  time  >  15, 
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set(H_STATUS,'String’,’STILL  TRIMMING ...') 

set(H_STATUSl,'String’,['RUN  ELAPSED  TIME  IS '  nuin2str(fix(toc)) '  SECONDS’]) 

set(H_STATUS2,'Strmg',rCYCLIC  TOIM  ROUTINE  IS  ON  ITERATION  #  ',nuiii2str(k)]) 
pause(2) 
tO=clock; 

end 

Mpsi(:,k)=zeros(size(psi)); 

tmcalc 

theta=[theta  theta(:,k)]; 

Mpsi=[Mpsi  Mpsi(:,k)]; 

%  *  **  calculation  of  initial  dthetadM  **  * 


ifk<2, 

theta(:,k+l)=theta(:,k)+0.25/57.3; 

Mpsi(:,k+l)=zeros(size(psi)); 

k=k+l; 

tmcalc 

k=k-l; 

dthetadM=(theta(:,k+l)-theta(:,k))./(Mpsi(:,k+l)-Mpsi(:,k)); 

end 

%  ***  calculation  of  M  first  harmonic  parameters  *** 

Mlc=2*sum(Mpsi(:,k).*cos(psi))/naz; 

Mls=2*sum(Mpsi(:,k).*sin(psi))/naz; 

%  ***  removal  of  first  harmonic  terms  from  Mpsi  *** 

Mpsi(:,k+l)=Mpsi(:,k)-Mlc.*cos(psi)-Mls.*sm(psi); 

delM=Mpsi(:,k+l)-Mpsi(:,k); 

errorO=max(deIM)-min(delM); 
ifk>  1, 

if  errorO  >  errorl, 
clc 

trimwaming 

set(H_GO,'Enable',’ofiF); 

set(H_RES,’Enable',’ofF); 
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set(H_RUPT,’Enable','off); 
set(H_BK, 'Enable', 'on'); 
eiTorC***  END  OF  PROGRAM  ***') 
end 

end 

errorl=eiTorO; 

%  ***  calculation  of  new  theta  *** 
delM=0.5*(l-inu)*delM; 
theta(:,k+l)=theta(:,k)+(dthetadM.  *delM); 
if  errorO  <=  ((T/b)*rTl*(R-giip))*.04, 
thetalc=2*sum(theta(:,k).*cos(psi))/naz; 
thetals=2*sum(theta(:  ,k).  *sin(psi))/naz; 
else 

thetalc=2*sum(theta(:,k+l).*cos(psi))/naz; 

thetals=2*sum(theta(:,k+l).*sin(psi))/naz; 

end 

theta(:,k+l)=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 

%  ***  calculation  of  new  dthetadM  *** 

theta=[theta  theta(:,k+l)]; 

Mpsi=[Mpsi  Mpsi(:,k+1)]; 

theta(:,k+2)=theta(:,k)+0.25/57.3 ; 

Mpsi(:,k+2)=zeros(size(Mpsi(:,k+l))); 

k=k+2; 

tmcalc 

k=k-2; 

dthetadM=(theta(;,k+2)-theta(:,k))./(Mpsi(:,k+2)-Mpsi(:Jc)); 

k=k+l; 

end 

set(H_STATUS, 'String', 'ADJUSTING  COLLECTIVE’) 

set(H_STATUSl, 'String', ['RUN  ELAPSED  TIME  IS  '  nuin2str(fix(toc))  ’  SECONDS']) 
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set(H_STATUS2,’String’,") 

pause(3) 

theta=theta(:,k); 


k=l; 

error0=(T*.01)+l; 

while  abs(errorO)  >  T*.01 

Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

eiToiO=T-(meaii(Tpsi)*b); 
if  errorO  <  -T*.01, 

thetao=thetao-0.25*thetao*abs(1.25*error0/T)*(l-mu); 
elseif  errorO  >  T*.01, 

thetao=thetao+0.25*thetao*abs(1.25*eiTor0/T)*(l-mu); 

end 

theta=thetao+thetalc.*cos(psi)+thetals.*sm(psi); 
ifk>  1, 

if  abs(eiTorO)  >  abs(errorl), 
clc 

trimwaming 
set(H_GO,'Enable','ofr); 
set(H_RES, 'Enable', 'off); 
set(H_RUPT,'Enable','off); 
set(H_BK, 'Enable', 'on'); 
errorC***  END  OF  PROGRAM  ***') 
end 

end 

eirorl=erroiO; 

k=k+l; 

end 


%  ***  calculating  drag  moments  *** 

set(H_STATUS2,'String','CALCLILATING  DRAG  MOMENT') 
set(H_STATUSl,'Strmg',rRUN  ELAPSED  TIME  IS '  num2slr(fix(toc)) '  SECONDS']) 
pause(2) 
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DMpsi=zeros(size(psi)) ; 
dmcalc 

%  ***  calculating  rotor  H  force  *** 

set(H_STATUS2, 'String', 'CALCULATING  ROTOR  DRAG') 
set(H_STATUSl, 'String', ['RUN  ELAPSED  TIME  IS '  nmn2str(fix(toc)) '  SECONDS']) 
pause(2) 
if  Vinf  <  16.9, 

Hrotoi=0; 

dT=[dTddT]; 

dN=[dNddN]; 

dD=[dDddD]; 

else 

dT=[dTddT]; 
dN=[dNddN]; 
dD=[dD  ddD]; 

for  i=l:length(r)+l, 

Hlc(i)=2*sum(dT(;,i).*cos(psi))/naz; 

Hls(i)=2*suni(dD(:,i).*sin(psi))/naz; 

end 

Hrotor=(((b*cos(alphaT)/2)*(sum(Hls)-sin(betao)*sum(Hlc)))+Drotor)/2; 

end 

%  ***  calculating  new  rT  *** 

rT2=(((mean(Mpsi(;,length(Mpsi(l,:))-l))/mean(Tpsi))/R)+rTl)/2; 

%  ***  check  rotor  drag  and  rT,  retiim  rotor  if  required  *** 
while  abs(Drotor-Hrotor)  >  0.2*Hrotor  |  abs(rTl-rT2)  >  0.015*rTl 
if  abs(Drotor-Hrotor)  >  0.2*Hrotor, 
set(H_STATUS,'String', 'ADJUSTING  ROTOR  DRAG') 

set(H_STATUSl,’String',['RUN  ELAPSED  TIME  IS '  nuin2str(fix(toc))  '  SECONDS']) 
set(H_STATUS2,'String',['CURRENT  ROTOR  DRAG  =  '  nuiu2str(Drotor) '  LB']) 
pause(3) 
end 

Drotor=Hrotor; 
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if  abs(rTl-rT2)  >  0.015*rTl, 

set(H_STATUS,'String’,'ADJUSTING  MEAN  THRUST  LOCATION’) 
set(H_STATUSl,'String’,['RUN  ELAPSED  TIME  IS '  nuin2str(fix(toc)) '  SECONDS']) 
set(H_STATUS2, 'String', [’NEW  MEAN  THRUST  LOCATION  IS '  num2str(rT2) '  r/R']) 
pause(2) 
end 

set(H_STATUS,’String',’RETRIMMING  ROTOR') 

set(H_STATUSl,'String',[’RUN  ELAPSED  TIME  IS '  niiin2str(fix(toc))  '  SECONDS']) 
pause(3) 

set(H_STATUS2,'String',") 

dT=dT(:,l:nbe); 

dN=dN(:,l:nbe); 

dD=dD(:,l;nbe); 

%  ***  recalculating  parameters  "'** 

ifFK_TPP_VAL==l 
alphaT=NEW_TPP;  %set  tip  path  angle 
else 

alphaT=ataii2((Dftotal+Drotor),(GW-Lftotal)); 

end 

mu=VinP‘cos(alphaT)A^tip; 
if  Vinf  >=  16.9,  %  Wheatley  Eqn  for  Fwd  fit 

T=(GW-Lftotal)/cos(alphaT); 

CT=T/(Adisk*rho’^Vtip''2); 

lamdaT=0; 

lamda=l; 

while  abs(lamdaT-lamda)>le-4 
lamda=IamdaT; 

lamdaT=mu*sin(alphaT)-K).5*CT/sqrt(lamdaT''2+mu'^2); 


end 

vi=lamdaT*Vtip-Vinf'sin(alphaT); 

vi=vi*ones(size(r)); 

end 

B=l-(sqrt(2*CT)/b); 

RefF=B*R; 

Rbai=ReIf-e; 
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ifRADSPC_VAL==l 
NEW_rl=[NEW_r,  RefBTEl]; 
n=length(lfew_rl); 
di=diflF(NEW_rl)*R; 
i=(NEW_r  1  (1  :n-l)*R)+dr/2; 
else 

dr=(Reff-grip)/nbe; 

r=grip:dr:Reff-dr;,i=r+dr/2; 

end 

RbarT=rT2*Rbar, 

betao=asin((T/b*RbarT-(.5*(R-e)+e)*wblade)/((.5*(R-e)+e)^2*omega'^2*mblade)); 
%  ***  briinining  collective  *** 


tO=clock; 

k=l; 

error0=(T*.02)+l; 
while  abs(errorO)  >  T*.02 

set(H_STATUS2,'Strmg',['ROTOR  TRIM  ROUTINE  IS  ON  ITERATION  #  ',nuin2str(k)]) 

set(H_STATUSI,'String',[’RUN  ELAPSED  TIME  IS  ’  num2str(fix(toc))  ’  SECONDS']) 
Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

errorO=T-(niean(Tpsi)*b); 
if  errorO  <  -T*.02, 

thetao=thetao-0.35*thetao*abs(1.5*error0/T)*(I-mu); 
elseif  errorO  >  T*.02, 

thelao=thetao+0.35*thetao*abs(1.5*error0/T)*(l-mu); 

end 

theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 

ifk>l, 

if  abs(errorO)  >  abs(errorl), 
clc 

trimwaming 
set(H_GO, Enable', 'off); 
set(H_RES,Enable','off); 
set(H_RUPT,Enable','off); 
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set(H_BK,'Enable',’on'); 
errorC***  END  OF  PROGRAM  ***') 
end 

end 

errorl=erTorO; 

k=k+l; 

end 

%  ***  trimming  cyclic  *** 

k=l; 

error0=(((T/b)*rT2*(R-grip))*.04)+l; 
while  errorO  >  ((T/b)*rT2*(R-giip))*.04 

set(H_STATUS2;Stiing',['CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION  #  ',num2str(k)]) 
set(H_STATUSl,'Stiing',['RUN  ELAPSED  TIME  IS  ’  num2str(fix(toc)) '  SECONDS']) 
time=etime(clock,tO); 

if  time  >  15, 

set(H_STATUS,'Stiing’,'STILL  TRIMMING ...') 

set(H_STATUSl,'String', ['RUN  ELAPSED  TIME  IS  '  num2str(fix(toc)) '  SECONDS']) 
set(H_STATUS2, 'String', ['CYCLIC  TRIM  ROUTINE  IS  ON  ITERATION  #  ',num2str(k)]) 

pause(3) 

tCNclock; 

end 

Mpsi(:di:)=zeros(size(psi)); 

tmcalc 

theta=[theta  theta(:,k)]; 

Mpsi=[Mpsi  Mpsi(:,k)]; 

%  ***  cdculation  of  initial  dthetadM  *** 

ifk<2, 

theta(;  ,k+  l)=theta(;  ,k)+0.25/57. 3; 

Mpsi(:,k+l)=zeros(size(psi)); 

k=k+l; 

tmcalc 

k=k-l; 
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dthetadM=(theta(:,k+l)-theta(:,k))./(Mpsi(:,k+l)-Mpsi(:,k)); 

end 

%  ***  calculation  of  M  first  harmonic  parameters  *** 

Mlc=2*sum(Mpsi(:,k).*cos(psi))/naz; 

Ml  s=2  *siun(Mpsi(:,k).  *sin(psi))/naz; 

%  ***  removal  of  first  harmonic  terms  from  Mpsi  *** 

Mpsi(:,k+l)=Mpsi(;dc)-Mlc.*cos(psi)-Mls.*sin(psi); 

delM=Mpsi(:,k+l)-Mpsi(:,k); 

errorO=max(delM)-min(delM); 

ifk>l, 

if  errorO  >  error  1, 
clc 

tiimwaming 
set(H_GO,’Enable’,W); 
set(H_RES,’Enable’,'off); 
set(H_RUPT,'Enable','off); 
set(H_BK,'Enable',’on'); 
errorC***  END  OF  PROGRAM  ***') 
end 

end 

errorl=errorO; 

%  ***  calculation  of  new  theta  *** 
delM=0.5*(l-mu)*delM; 
theta(;,k+l)=theta(:,k)+(dthetadM*delM); 
if  errorO  <=  ((T/b)*rT2*(R-grip))*.04, 
thetalc=2*sum(theta(:,k).*cos(psi))/naz; 
thetals=2*sum(theta(:,k).  *sin(psi))/naz; 
else 

thetalc=2*simi(theta(:,k+l).*cos(psi))/naz; 

thetals=2*sum(theta(:,k+l).*sin(psi))/naz; 

end 
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theta(:  ,k+  l)=thetao+thetal  c.  *cos(psi)+thetal  s.  *sin(psi); 

%  ***  calculation  of  new  dthetadM  *** 
theta=[theta  theta(:Jk+l)]; 

Mpsi=[Mpsi  Mpsi(:,k+1)]; 
tlieta( ;  ,k+2)=theta(:  ,k)+0 .25/57.3; 

Mpsi(:,k+2)=zeros(size(Mpsi(:,k+l))); 

k=k+2; 

tmcalc 

k=k-2; 

dthetadM=(theta(:,k+2)-theta(:j£))./(Mpsi(:,k+2)-Mpsi(:,k)); 

k=k+l; 

end 

%  ***  retrimming  collective  *** 
theta=tlieta(:,k); 
k=l; 

error0=(T*.01)+l; 
while  abs(errorO)  >  T*.0 1 

set(H_STATUS2,'String',['COLLECTIVE  TRIM  ROUTINE  IS  ON  ITERATION  #  •,nuin2str(k)]) 
set(H_STATUSl,'Stimg',['RUN  ELAPSED  TIME  IS '  num2str(fix(toc))  *  SECONDS’]) 
Tpsi=zeros(size(psi)); 

Npsi=zeros(size(psi)); 

thrcalc 

errorO=T-(mean(Tpsi)*b); 
if  errorO  <  -T*.01, 

thetao=thetao-0.25*thetao*abs(1.25*errof0/T)*(l-mu); 
elseif  errorO  >  T*.01, 

thetao=thetao+0.25*thetao*abs(1.25*erroT0/T)*(l-mu); 

end 

theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
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ifk>l, 

if  abs(eirorO)  >  abs(errorl). 


clc 

trim_waming 
set(H_GO,’Enable';off); 
set(H_RES, 'Enable', W); 
set(H_RUPT,'Enable','ofF); 
set(H_BK,'En^le','on’); 
errorC***  END  OF  PROGRAM  ***') 
end 

end 

errorl=errorO; 

k=k+l; 


%  ***  recalculating  rotor  H  force  *** 

if  Vinf<  16.9, 

Hrotor=0; 

dT=[dTddT]; 
dN=[dN  ddN]; 


dD=[dD  ddD]; 
else 

dT=[dTddT]; 
dN=[dN  ddN]; 

dD=[dD  ddD]; 

for  i=l;length(r)+l, 

Hlc(i)=2*sum(dT(:,i).*cos(psi))/naz; 

Hls(i)=2*sum(dD(:,i).*sin(psi))/na2; 

end 

Hrotor=(((b*cos(alphaT)/2)*(sum(Hls)-sin(betao)*siim(Hlc)))+Drotor)/2; 

end 

%  ***  recalculating  rT*** 
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rTl=rT2; 


rT2=(((mean(Mpsi(;,length(Mpsi(l,;))-l))/mean(Tpsi))/R)+rTl)/2; 

end 

%  ***  recalculating  drag  moments  *** 

dT=dT(:,l;nbe); 

dN=dN(;,l:nbe); 

dD=dD(:,l:nbe); 

DMpsi=zeros(size(psi)); 

dmcalc 

dT=[dTddT]; 

dN=[dNddN]; 

dD=[dDddD]; 

set(H_STATUS,'String','ROTOR  TRIMMED*) 

set(H_STATUSl,'String',rRUN  ELAPSED  TIME  IS  ’  num2str(fix(toc))  '  SECONDS']) 
set(H_STATUS2,'String','IS  THIS  BETTER  THAN  JANRAD  3  OR  WHAT?') 
pause(3) 

set(H_STATUS2,'Stiing',") 

save  perftemp  mchord  DMpsi  %  Eccles  addition  -  perf.m  was 
%  not  recognizing  mchord  and  DMpsi. 
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APPENDIX  AQ.  THRCALC.M 


This  script  M-file  is  a  subroutine  of  Trim.m  to  calculate  the  rotor  thrust. 


%  THRCALC.M 

%  thrcalc  calculates  the  total  thrust  along  a  blade  at 
%  each  azimuth  (psi)  location 
%  JANRAD  98  VERSION  5.0 

global  MESH_VAL  MESH_STA  AF_MAIN  AF_TIP  r_mesh 

Up=zeros(size(psi*r)); 

Ut=zeros(size(Up)); 

dT=zeros(size(Up)); 

dN=zeros(size(Up)); 

ddT=zeros(size(psi)); 

ddN=zeros(size(psi)); 

for  i=l:length(psi), 

Up(i,:)=vi.*cos(betao)+Vinf*sm(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Ut(i,  :)=r.  *omega+Vinf*cos(alphaT)*sin(psi(i)); 

phi=atan2(Up(i,:),Ut(i,:)); 

alpha=theta(i)+betat-phi; 

%  Eccles  added  the  following  line  for  use  with  Mach  dependent  afoil  files. 

Mach  =  (Vtip.*cos(alphaT).*r./R+Vinf  *sin(psi(i)))/(49.05*sqrt(tempt-460)); 
switch  MESH_VAL 

caseO 

ifafoil==l, 

[CL,CD]=ool2clcd(alpha,  Mach); 
elseif  afoil==2, 

[CL,CD]=hh02clcd(alpha); 
elseif  afoil==3, 

[CL,CD]=vrl2clcd(alpha,Mach); 
elseif  afoil==4, 

[CL,CD]=vrl5clcd(alpha,Mach); 
elseif  afoil==5, 

[CL,CD]=sc 1094r8clcd(alpha,Mach); 
elseif  afoil==6, 

[CL,CD]=scl095r8clcd(alpha,Mach); 

end 

case  1 

r_mesh=find((r./R)<eval(MESH_STA)); 

ifAF_MAIN=2, 

[CL_m,CD_m]=ool2clcd(alpha(l:inax(r_mesh)),  Mach(l:max(r_mesh))); 
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elseif  AF_MAIN==3, 

[CL_m,CD_m]=hh02clcd(alpha(l;inax(r_mesh))); 
elseif  AF_MAIN==4, 

[CL_m,CD_m]=vrl2clcd(alpha(l:niax(r_mesh)),  Mach(l:inax(r_mesh))); 
elseif  AF_MAIN==5, 

[CL_m,CD_m]=vr  1 5clcd(alpha(  1  ;inax(r_mesh)),  Mach(  1  :inax(r_mesh))); 
elseif  AF_MAIN==6, 

[CL_m,CD_m]=scl094r8clcd(alpha(l  :max(r_mesh)),  Mach(l  :max(r_mesh))); 
elseif  AF_MAIN==7, 

[CL_m,CD_m]=scl095r8clcd(alpha(l  :max(r_mesh)),  Mach(l  :max(r_mesh))); 
end 

if  AF_TIP==2, 

[CL_t,CD_t]=ool2clcd(alpha(inax(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
elseif  AF_TIP==3, 

[CL_t,CD_t]=lih02clcd(alpha(inax(r_niesh)+l:nbe)); 
elseif  AF_T1P==4, 

[CL_t,CD_t]=vrl2clcd(alpha(max(r_mesh)+l:nbe),  Macli(max(r_mesh)+l:nbe)); 
elseif  AF_Tn*==5, 

[CL_t,CD_t]==vrl5clcd(alpha(iiiax(r_mesh)+l  :nbe),  Mach(inax(r_mesh)+1  ;nbe)); 
elseif  AF_TIP==6, 

[CL_t,CD_t]=scl094r8clcd(alpha(niax(r_mesh)+l:nbe),  Mach(max(r_mesli)+l:nbe)); 
elseif  AF_TIP==7, 

[CL_t,CD_t]=scl095r8clcd(alpha(niax(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
end 

CL=[CL_m  CL_t]; 

CD=[CD_mCD_t]; 

end 

dT(i,:)=0.5*rho.*cblade.*dr.*(Up(i,:).^2+Ut(i,:).^2).*(CL.*cos(phi)-CD.*sin^hi)); 

Tpsi(i)=sum(dT(i,;)); 

dN(i,:)=0.5*rho.*cblade.*dr.*(Up(i,:).^2+Ut(i,:).^2)*(CL.*cos(alpha)+CD.*sin(alpha)); 

Npsi(i)=sum(dT(i,:)); 


%  ***  calculations  for  tip  loss  area  *** 

Uptip=Vinf‘sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Uttip=(R-(R-ReflO/2)*omega+Vinf*cos(alphaT)*sin(psi(i)); 

pliitip=atan2(Uptip,Uttip); 

alphatip=theta(i)+betat(nbe)-phitip; 

ddT(i)=0.5*rho*cblade(nbe)*(0.5-K).5*cos(2*psi(i)))*(R-Reff)*(Uptip^2+Uttip^2)*(-.009*sin0)liitip)); 

Tpsi(i)=Tpsi(i)+ddT(i); 

ddN(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-Reff)*(Uptip''2+Uttip^2)*(-.009*sin(alphatip)); 

Npsi(i)=Npsi(i)+ddN(i); 

end 
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APPENDIX  AR.  TMCALC.M 


This  script  M-file  is  a  subroutine  of  Trim,  m  to  calculate  the  rotor  thrust  moment. 


%  TMCALC.M 

%  tmcalc  calculates  the  total  thrust  moment  along  a  blade 
%  at  each  azimuth  (psi)  location 
%  JANRAD  98  VERSION  5.0 

global  MESH_VAL  MESH_STA  AF_MAIN  AF_TIP  r_mesh 

Up=zeros(size(psi*r)); 

Ut=zeros(size(Up)); 

dM=zeros(size(Up)); 

ddM=zeros(size(psi)); 

for  i=  1  :length(psi), 

Up(i,:)=vi.*cos(betao)+Vinf*sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Ut(i,:)=r.*omega+\^btif*cos(alpha'I)*sin(psi(i)); 

phi=atan2(Up(i,  :),Ut(i, :)); 

alpha=theta(i,k)+betat-phi; 


%  Eccles  added  the  following  line  for  use  with  Mach  dependent  afoil  files. 
Mach  =  (Vtip.*cos(alphaT).*r./R+Vmf  *sin(psi(i)))/(49.05*sqrt(temp+460)); 

switch  MESH_VAL 
caseO 
if  afoil==l, 

[CL,CD]=ool2clcd(alpha,  Mach); 
elseif  afoil==2, 

[CL,CD]=hh02clcd(alpha); 
elseif  afoil==3, 

[CL,CD]=vrl2clcd(alpha,Mach); 
elseif  afoil==4, 

[CL,CD]=vrl  5clcd(alpha,Mach); 
elseif  afoil==5, 

[CL,CD]=scl094i«clcd(alpha,Mach); 
elseif  afoil==6, 

[CL,CD]=sc  1095r8clcd(alpha,Mach); 
end 

case  1 

r_mesh=find((r  ./R)<eval(MESH_STA)) ; 
ifAF_MAIN==2, 

[CL_m,CD_m]=ool2clcd(alpha(l:max(r_mesh)),  Mach(l;max(r_mesh))); 
elseif  AF_MAIN==3, 
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[CL_in,CD_m]=hh02clcd(alpha(l:iiiax(r  mesh))); 
elseif  AF_MAIN==4, 

[CL_m,CD_m]=vrl2clcd(alpha(l;max(r_mesh)),  Mach(l:max(r_mesh))); 
elseif  AF_MAIN==5, 

[CL_m,CD_m]=vrl5clcd(alpha(l  :niax(r_mesh)),  Mach(l:max(r_mesh))); 
elseif  AF_MAIN==6, 

[CL_m,CD_m]=scl094r8clcd(alpha(l:max(r_mesh)XMach(l;max(r_mesh))); 
elseif  AF_MAIN==7, 

[CL_m,CD_m]=sc  1095r8clcd(alpha(  1  ;max(r_mesh)),  Mach(l  ;inax(r_mesh))); 
end 

ifAF_TIP==2, 

[CL_t,CD_t]=oo  1 2clcd(alpha(max(r_mesh)+ 1  :ribe),  Mach(max(r_mesh)+1  :nbe)); 
elseif  AF_Tn*==3, 

[CL_t,CD_t]=hh02clcd(alpha(max(r_mesh)+l:ribe)); 
elseif  AF_Tff==4, 

[CL_t,CD_t]=vrl2clcd(alpha(inax(r_mesh)+l;nbe),  Mach(max(r_mesh)+l:nbe)); 
elseif  AF_TIP==5, 

[CL_t,CD_t]=vrl5clcd(alpha(niax(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
elseif  AF_Tff==6, 

[CL_t,CD_t]=scl094r8clcd(alpha(max(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
elseif  AF_TIP==7, 

[CL_t,CD_t]=scl095r8clcd(alpha(max(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
end 

CL=[CL_mCL_t]; 

CD=[CD_mCD_t]; 

end 

dM(i,:)=0.5*rho.*cblade.*r.*dr*(Up(i,:).^2+Ut(i,:).''2)*(CL.*cos(phi)-CD.*sin(phi)); 
Mpsi(i,k)=sum(dM(i, :)); 

%  ***  calculations  for  tip  loss  areas*** 

Uptip=Vinf*sin(alphaT)*cos(betao)+Vinf*‘cos(alphaT)*sin(betao)*cos(psi(i)); 

Uttip=(R-(R-Reff)/2)*omega+Vinf^cos(alphaT)*sin(psi(i)); 

phitip=atan2CUptip,Uttip); 

ddM(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-(R-Reff)/2)*(R-Reff)*(Uptip^2+Uttip'^2)*(- 

.009*sin(phitip)); 

Mpsi(i,k)=Mpsi(idc)+ddM(i); 

end 
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APPENDIX  AS.  DMCALC.M 


This  script  M-file  is  a  subroutine  of  Trim.m  to  calculate  the  rotor  drag  moment. 


%DMCALC.M 

%  dmcalc  calculates  the  total  drag  along  a  blade  at 
%  each  azimuth  (psi)  location 
%  JANRAD  98  VERSION  5.0 

global  MESH_VAL  MESH_STA  AF_MAJN  AF_TIP  r_mesh 

Up=zeros(size(psi*r)); 

Ut=zeros(size(yp)); 

alpham=zeros(size(Up)); 

dD=zeros(size(Up)); 

ddD=zeros(size(psi)); 

ddDM=zeros(size(psi)); 

for  i=l:length(psi), 

Up(i,:)=vi.*cos(betao)+Vinf*sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Ut(i,;)=r.*omega+Vinf*cos(alphal5*sin(psi(i)); 

phi=atan2(Up(i,:),Ut(i,:)); 

alpha=theta(i)+betat-phi; 

alpham(i,:)=alpha; 

%  Eccles  added  the  following  line  for  use  with  Mach  dependent  afoil  files. 

Mach  =  (Vtip.*cos(alphaT).*r./R+Vinf.*sin(psi(i)))/(49.05*sqrt(temp+460)); 
switch  MESH_VAL 

caseO 
if  afoil==l, 

[CL,CD]=ool2clcd(alpha,  Mach); 
elseif  afoil==2, 

[CL,CD]=hh02clcd(alpha); 
elseif  afoil==3, 

[CL,CD]=vrl2clcd(alpha,  Mach); 
elseif  afoil==4, 

[CL,CD]=vrl5clcd(alpha,  Mach); 
elseif  afoil==5, 

[CL,CD]=scl094r8clcd(alpha,Mach); 
elseif  afoil==6, 

[CL,CD]=scl095r8clcd(alpha,Mach); 

end 

case  1 

r_mesh=find((r./R)<eval(MESH_STA)) ; 
ifAF_MAIN==2, 

[CL_m,CD_m]=ool2clcd(alpha(l:max(r_mesh)),  Mach(l  :niax(r_mesh))); 
elseif  AF_MAIN==3, 

[CL_m,CD_m]=hh02clcd(alpha(  1  :max(r_mesh))) ; 
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elseifAF_MAIN==4, 

[CL_m,CD_m]=vrl2clcd(alpha(l:niax(r_mesh)),  Mach(l;inax(r  mesh))); 
elseifAF_lvIAIN==5, 

[CL_m,CD_m]=vr  1 5clcd(alpha(  1  :max(r_mesh)),  Mach(l  :max(r_mesh))) ; 
elseifAF_MAIN==6, 

[CL_m,CD_m]=scl094r8clcd(alpha(l:max(r_mesh)),  Mach(l:max(r_mesh))); 
elseif  AF_MAIN==7, 

[CL_m,CD_m]=scl095r8clcd(alpha(l:max(r_mesh)),  Mach(l  :max(r_mesh))); 
end 

if  AF_TIP==2, 

[CL_t,CD_t]=ool2clcd(alpha(max(r_mesh)+l:nbe),  Mach(max(r_mesh)+l;nbe)); 
elseif  AF_TIP==3, 

[CL_t,CD_t]=hh02clcd(alpha(max(r_mesh)+l:nbe)); 
elseif  AF_TIP==4, 

[CL_t,CD_t]=vrl2clcd(alpha(max(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
elseif  AF_TIP==5, 

[CL_t,CD_t]=vrl5clcd(alpha(max(r_mesh)+l:nbe),  Mach(max(r_mesh)+l:nbe)); 
elseif  AF_MAIN==6, 

[CL_t,CD_t]=scl094r8clcd(alpha(max(r_mesh)+l:nbe),  Mach(max(r_mesh)+l;nbe)); 
elseif  AF_TIP==7, 

[CL_t,CD_t]=sc 1 095r8clcd(alpha(max(r_mesh)+ 1  ;nbe),  Mach(max(r_mesh)+1  :nbe)); 
end 

CL=[CL_m  CLJ]; 

CD=[CD_mCD_t]; 

end 

dD(i,  ;>=0.5  *rho*cblade.  *dr.  *(Up(i,  ;).^2+Ut(i,  :).''2).  *(CL.  *sin(phi)+CD.  *cos(phi)); 
dDM=dD(i,:).*r; 

DMpsi(i)=snm(i)M); 

%  ***  calculations  for  tip  loss  area*** 

Uptip=Vinf*sin(alphaT)*cos(betao)+Vinf*cos(alphaT)*sin(betao)*cos(psi(i)); 

Uttip=(R-(R-Reff)/2)*omega+Vinf*cos(alphaT)*sin(psi(i)); 

phitip=atan2(Uptip,Uttip); 

ddD(i)=0.5*rho*cblade(nbe)*(0.5+0.5*cos(2*psi(i)))*(R-Refif)*(Uptip'^2+Uttip^2)*(.009*cos(pliitip)); 

ddDM(i)=ddD(i)*(R-(R-Reff)/2); 

DMpsi(i)=DMpsi(i)+ddDM(i); 

end 
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APPENDIX  AT.  0012CLCD.M 


This  MATLAB  function  calculates'  a  ci  and  ca  for  a  NACA  0012  airfoil  given 
angle  of  attack  and  Mach  number.  It  is  called  in  Thrcalc.m,  Tmcalc.m  and  Dmcalc.m 
script  M-files. 


%  oollclcd  calculates  CL  and  CD  for  the  NACA  0012 
%  airfoil  given  angle  of  attack  in  radians  and  the 
%  local  Mach  number: 

% 

%  [CL,CD]=ool2clcd(alpha,  Mach) 

% 

%  Both  'alpha'  and  'Mach'  are  intended  to  be  vectors 
%  the  elements  of  which  correspond  to  the  rotor  blade 
%  radial  stations  of  interest  in  a  blade  element  analysis. 
%  All  equations  are  based  on  Ray  Prouty's  treatment  of 
%  the  0012  in  his  text. 

%  JANRAD  98  VERSION  5.0 

function  [CL,CD]=ool2clcd(alpha,  Mach) 
CL=zeros(size(alpha)); 

CD=zeros(size(alpha)); 
a=alpha*180/pi; 
aL  =  15  -  16.*Mach; 
aD=  17-23.4.*Mach; 

K1  =  0.0233  +  0.342.*(Mach.''7.15); 

K2  =  2.05  -  0.95.*Mach; 


%  CL  for  Mach  numbers  <  0.725  and  AOA  inside  +/-  20  deg: 

chk=(Mach<0.725  &  a>=0  &  a<=aL); 

CL=CL+chk.*((0.1./sqrt(l-Mach.^2)  -  0.01.*Mach).*a); 

chk=(Mach<0.725  &  a>aL  &  a<=20); 

CL=CL+chk.*((0.  l./sqrt(l-Mach.^2)  -  0.01.*Mach).*a  -  Kl.*(a-aL).''K2); 
chk=(Mach<0.725  &  a>=-20  &  a<-aL); 

CL=CL-chk.*((0.1./sqrt(l-Mach.^2)  -  0.01.*Mach).*abs(a)  -Kl.*(abs(a)-aL).''K2); 

chk=(Mach<0.725  &  a>=-aL  &  a<0); 

CL=CL-chk.*((0.1./sqrt(MVfach.'^2)  -  0.01.*Mach).*abs(a)); 


%  CL  for  Mach  numbers  >  0.725  and  AOA  inside  +/-  20  deg: 
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chk=(Mach>=0.725  &  a>=0  &  a<=aL); 
CL=CL+chk  .*((0.677  -  0.744.*Mach).*a); 


chk=(Mach>=0.725  &  a>aL  &  a<=20); 

CL=CL+chk.  *((0.677  -  0.744.*Mach).*a  -  (0.0575-0. 144.*(Mach-0.725).^0.44).*(a-aL).''(K2)); 


chk=(Mach>=0.725  &  a<0  &  a>=-aL); 
CL=CL-chk.  *((0.677  -  0.744.  *Mach).*abs(a)); 


chk=(Mach>=0.725  &  a<-aL  &  a>=-20); 

CL=CL-chk.  *((0.677  -  0.744.  *Mach).*abs(a)  -  (0.0575-0. 144.*(Mach-0.725).''0.44).*(abs(a)-aL).^(K2)); 


%  CL  for  all  Mach  numbers  and  AOA  outside  +/-  20deg: 

chk=(a>20  &  a<=161); 
CL=CL+chk.*(1.15.*sm(2.*alpha)); 

chk=(a>161  &  a<=173); 

CL=CL+chk.*(-0.7); 

chk=(a>173  &  a<=180); 

CL=CL+chk.  *(0.1.  *(a-180)) ; 


chk=(a>=-180  &  a<=-173); 
CL=CL+chk.  *(0. 1  .*(a+180)); 

chk=(a>-173  &  a<=-161); 
CL=CL+chk.*(0.7); 

chk=(a>-161  &  a<-20); 
CL=CL-i-chk.*(l.  15.*sin(2.*alpha)); 


%  CD  for  Mach  numbers  <  0.725  and  AOA  inside  +/-  20  deg: 
chk=(Mach<0.725  &  a>=0  &  a<=aD); 

CD=CD+chk.*(0.0081  +  (-350.  *a  +  396.*a.^2  -  63.3.*a^3  +  3.66.*a.M).*10.^(-6)); 
chk=(Mach<0.725  &  a>aD  &  a<=20); 

CD=CD+chk. *((0.0081  +  (-350.*a  +  396.*a.^2  -  63.3.*a.^3  +  3.66.*a''4).*10.^(-6))  +  0.00066.*(a- 
aD).^2.54); 

chk=(Mach<0.725  &  a<0  &  a>=-aD); 

CD=CD+chk.*(0.0081  +  (-350.*abs(a)  +  396.*a.''2  -  63.3.*abs(a).'^3  +  3.66.*a.M).*10.^(-6)); 


chk=(Mach<0.725  &  a<-aD  &  a>=-20); 

CD=CD+chk.  *((0.0081  +  (-350.*abs(a)  +  396.*a.''2  -63.3.*abs(a).^3  +  3.66.*a.''4).*10.^(-6))  + 
0.00066.*(abs(a)-aD).^2.54); 
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%  CD  for  Mach  numbers  >  0.725  and  AOA  inside  +/-  20  deg: 


chk=(Mach>=0.725  &  a>=0  &  a<=20); 

CD=CD+chk. *((0.0081  +  (-350.*a  +  396.*a.''2  -  63.3.*a'^3  +  3.66.*a.M).*10.^(-6))  +  0.00035.*a.''2  54  + 
21.*(Mach-0.725).''3.2); 

chk=(Mach>=0.725  &  a<0  &  a>=-20); 

CD=CD+chk.  *((0.0081  +  (-350.*abs(a)  +  396.*a.^2  -  63.3.*abs(a).'^3  +  3.66.*a.M).*10.^(-6))  + 
0.00035.*abs(a).^2.54  +  21.*(Mach-0.725).^3.2); 


%  CD  for  all  Mach  numbers  and  AOA  outside  +/-  20deg: 

chk=(a>20  &  a<=180); 

CD=CD+chk.*(1.03  -  1.02.*cos(2.*alpha)); 

chk=(a>=-180  &  a<-20); 

CD=CD+chk.*(1.03  -  1.02.*cos(2.*alpha)); 
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APPENDIX  AU.  HH02CLCD.M 


This  MATLAB  function  calculates  a  Ci  and  Cd  for  an  HH-02  airfoil  given  angle  of 
attack.  It  is  called  in  Thrcalc.m,  Tmcalc.m  and  Dmcalc.m  script  M-files. 


function  [CL,CD]=hh02clcd(alpha) 

%  hh02clcd  calculates  CL  and  CD  for  an  HH-02  airfoil 
%  given  angle  of  attack  (alpha)  in  radians 
%  [CL,CD]=lih02clcd(alpha) 

%  JANRAD  98  VERSION  5.0 

CL=zeros(size(alpha)); 

CD=zeros(size(alpha)); 
a=alpha*  180/pi; 


chkl=(a>=20  &  a<=180); 

CL=CL+chkl.*(0.42541+0.026863*a+5.5988e-4*a.'^2-2.1493e-5*a'^3+1.5932e-7*a.''4-3.4659e-10*a^5); 

CD=CD+chkl.*(-0.7179-K).061213*a-5.9861e-4*a.^2+7.3708e-6*a''3-6.6605e-8*a.M-l-1.913e-10*a.^5); 


clikl=(a>=-180  &  a<=-50); 

CL=CL+chkl.*(4.6183-0.1923*a-3.5554e-3*a.^2-3.3273e-5*a^3-1.4528e-7*a.'"4-2.3003e-10*a.^5); 

CD=CD+chkl.*(2.7093e-2-2.1309e-2*a+2.0335e-4*a.^2+3.47e-7*a.^3-3.0586e-8*a.^4-1.2584e-10*a''5); 

chkl=(a>-50  &  a<-20); 

CL=CL+chkl.  *(-2.55 19-0.22847*a-9.5667e-3*a^2-l  .705  le-4*a.''3-l  .0909e-6*a.''4); 
CD=CD+chkl.*(2.7093e-2-2.1309e-2*a+2.0335e-4*a.'^2+3.47e-7*a.'^3-3.0586e-8*a''4-1.2584e-10*a^5); 


chkl=(a>=-20  &  a<=-10); 

CL=CL+chkl.*(-0.2+0.089*a-K).0034*a'^2); 

CD=CD+chkl  .*(2.70936-2-2. 1309e-2*a+2.0335e-4*a.''2+3 .47e-7*a.^3-3.0586e-8*a''4-1.2584e-10*a''5); 
chkl=(a<20  &  a>-10); 

CL=CL+chkl.*(5.8766e-2+1.3131e-l*a+2.4742e-3*a.^2-5.303e-4*a.''3-1.5818e-5*a.M+1.28e-6*a.^5); 

chk2=a<-4; 

chk2=chk2.*chkl; 

CD=CD+chk2.*(1.3786-K).916*a+0.21396*a.'^2+2.0371e-2*a.'^3+7.0076e-4*a.M); 

chk2=(a>=-4  &  a<=7); 

chk2=chk2.*chkl; 
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CD=CD+chk2*(9.732e-3+3.2326e-4*a+1.4392e-4*a.^2-8.5073e-5*a.''3+1.1826e-6*a.^4+1.5271e- 

6*a.^5); 

chk2=a>7; 

chk2=chk2.*chkl; 

CD=CD+chk2*(1.842e-l-5.7532e-2*a+5.8043e-3*a.''2-1.2803e4*a.'^3); 
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APPENDIX  AV.  AIRSPEED  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  airspeed  iteration 
method. 


function  airspeed_iterationjplots() 

%  Plot  Routine  For  Airspeed  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  airspeed_iteration_plots 

global  PICK  H_AS_IT... 

H_AS_IT_P1  H_AS_IT_P2  H_AS_IT_P3  H_AS_IT_P4  H_AS_IT_P5... 

H  AS  IT  P6H  AS  IT  P7H  AS  IT  P8H  AS  IT  P9H  AS  IT  PIO 


H_AS_IT  =  figure('UnitsVnormalized', ... 

'Color', [0.8  0.8  0.8], ... 

'Colormap',mat0, ... 

'Name',' Airspeed  Iteration  Plots', ... 

'NumberTitle','ofiP, ... 

TointerShapeCData',matl, ... 

'Position',[0. 170898  0.0963542  0.65625  0.824219], ... 
’Tag','Figl'); 

b  =  uicontrol('Parent',H_AS_IT, ... 

'Units','nonnalized', ... 

'FontSize',14, ... 

'FontWei^t','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 173363  0.872038  0.659226  0.101106], ... 
'String','Plot  Selection  For  Airspeed  Iteration', ... 
'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',H_AS_IT, ... 

Units' ,'nonnalized’, ... 

TontSize',12, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.21875  0.707741  0.568452  0.0647709], ... 
'String','Check  The  Boxes  Below  For  Desired  Plots', ... 
'Slyle','text', ... 

'Tag','StaticText2'); 

H_AS_IT_P1  =  uicontrolCParent',H_AS_n’, ... 
Units','normali2ed', ... 
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■BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.603476  0.705357  0.0458136], ... 

'String', 'Main  Rotor  Plots-  Speed  vs  T/RHP/TPPan^e/Liftpercent',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_AS_1T_P2  =  uicontrol('Parent',H_AS_IT, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.15 1786  0.545901  0.702381  0.0473934], ... 

'String', 'Rotor/Tail  Rotor/Total  Power  Required',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_AS_IT_P3  =  iiicontrol('Parent',H_AS_IT, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.150298  0.489907  0.705357  0.0458136], ... 
'String','Rotor  Speed  vs  Airspeed  (Constant  Tip  Speed)',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_AS_IT_P4  =  uicontrol('Parent',H_AS_lT, ... 

Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.151786  0.432333  0.702381  0.0473934], ... 
'Strmg','AuxilLary  Thrust  vs  Airspeed',... 

'Slyle','checkbox', ... 

'Tag',’Checkboxl'); 

H_AS_IT_P5  =  uicontrolCParent',H_AS_n', ... 

Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.376338  0.705357  0.0458136], ... 
'String','Coeff  of  Power  vs  Coeff  of  Thrust  at  Max  Airspeed',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_AS_IT_P6  =  uicontrol('Parent',H_AS_IT, ... 

Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 

'Position', [0.15 1786  0.318764  0.702381  0.0473934], ... 

'String', 'Coeff  of  Thrust  vs  Figure  of  Merit',... 

'Style','checkbox', ... 

'Tag','Checkboxr); 

H_AS_IT_P7  =  uicontrol('Parent',H_AS_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 

'Position', [0.150298  0.26277  0.705357  0.0458136], ... 

'String','Drag  vs  Airspeed',... 

'Style', 'checkbox', ... 

'Tag','Checkboxr); 

H_AS_IT_P8  =  uicontrol('Parent',H_AS_lT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',  [0.151786  0.205196  0.702381  0.0473934], ... 
'String','Required  Collective  Pitch  vs  Airspeed',... 

'Style','checkbox', ... 
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Tag'.’Checkboxl'); 

H_AS_rr_P9  =  uicontrol('Parent',H_AS_IT, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 
'Position',[0. 150298  0.149201  0.705357  0.0458136], ... 
'String'.'lst  Lateral  Cyclic  Term  (als)  vs  Airspeed',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_AS_IT_P10  =  uicontrol('Parent',H_AS_IT, ... 
'Units','normali2ed', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 
Tosition',[0.151786  0.0916272  0.702381  0.0473934], ... 
'String','lst  Longitudinal  Cyclic  Term  (bis)  vs  Airspeed',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 
b  =  uicontrol('Parent',H_AS_n', ... 

'Units','normalized', ... 

'Callback','create_plots_fcn  plots', ... 

'FontSize',12, ... 

'FontWeight-bold', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position',[0.589286  0.01  0.235119  0.0677165], ... 
'String','Create  Plots', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_AS_rr, ... 

'Units','nonnalized', ... 

'Callback','out_coun^l;create_plots_fcn  back', ... 
'FontSi2e',12, ... 

'FontWeight','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Position',[0. 178571  0.01  0.235119  0.0677165], ... 
'String','«  Back', ... 

'Tag','Pushbuttonl'); 

assignin('base','H_AS_IT_Pl',H_AS_IT_Pl) 

assignin(’base','H_AS_IT_P2',H_AS_IT_P2) 

assignin('base','H_AS_IT_P3',H_ASJT_P3) 

assignin('base','H_AS_lT_P4',H_AS_IT_P4) 

assignin('base','H_AS_IT_P5',H_AS_IT_P5) 

assignin('base','H_AS_IT_P6',H_AS_IT_P6) 

assignin('base','H_AS_IT_P7',H_AS_lT_P7) 

assignin('base','H_AS_IT_P8',H_AS_IT_P8) 

assignin('base','H_AS_IT_P9',H_AS_IT_P9) 

assignin('base','H_AS_IT_P10',H_AS_IT_P10) 
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APPENDIX  AW.  ALTITUDE  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  altitude  iteration 
method. 


function  altitude_iteration_plots() 

%  Plot  Routine  For  Altitude  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  altitude_iteration_plots 

global  H_AL_IT  H_AL_IT_P1  H_AL_IT_P2  H_AL_IT_P3  H_AL_IT_P4  H_AL_IT_P5 

H  AL  IT  =  figiueCUnitsVnormalized', ... 

■Color', [0.8  0.8  0.8], ... 

'Colormap',matO, ... 

'Name',' Altitude  Iteration  Plots', ... 

'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position',[0. 169922  0.0976562  0.65625  0.824219], ... 

'Tag','Figl'); 

b  =  uicontrol(Tarent',H_AL_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0. 173363  0.872038  0.659226  0.101106], ... 

'String','Plot  Selection  For  Altitude  Iteration', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol(Tarent',H_AL_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position'.[0.21875  0.707741  0.568452  0.0647709], ... 

'String','Check  The  Boxes  Below  For  Desired  Plots', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H_AL_IT_P1  =  uicontrol('Parent',H_AL_IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0. 14881  0.603476  0.705357  0.0458136], ... 
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'String', Total  Power  Required  vs  Altitude', ... 
'Slyle','checkbox', ... 

'Tag','Checkboxl'); 

H_AL_1T_P2  =  uicontrol('Parent',H_AL_IT, ... 
'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], 
'Position',[0. 14881  0.545901  0.702381  0.0473934], ... 
'String', 'Rotor  Drag  vs  Altitude', ... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_AL_IT_P3  =  uicontrol('Parent',H_AL_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], 
'Position',[0. 14881  0.489731  0.705357  0.0458136], ... 
'String', 'Required  Collective  Pitch  vs  Altitude', ... 
'Style', 'checkbox', ... 

'Tag','Checkboxr); 

H_AL_IT_P4  =  uicontrol('Parent',H_AL_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], 
'Position',[0.14881  0.42654  0.705357  0.0458136], ... 
'String','lst  Lateral  Cyclic  Term  vs  Altitude', ... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_AL_rr_P5  =  uicontrol('Parent',H_AL_n', ... 
'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], 
'Position',[0. 14881  0.363349  0.705357  0.0458136], ... 
'String','lst  Longitudinal  Cychc  Term  vs  Altitude', . 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_AL_IT_P6  =  uiconlrol('Parent',H_AL_IT, ... 
'Units','nonnalized', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], 
'Position',[0. 14881  0.300158  0.705357  0.0458136], ... 
'String','Blank', ... 

'Style','checkbox', ... 

'Tag','Checkboxr); 

H_AL_rr_P7  =  uicontrol('Parent',H_AL_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], 
'Position',[0. 14881  0.232227  0.705357  0.0458136], ... 
'String','Blank', ... 

'Style','checkbox', ... 

'Tag','Checkboxr); 
b  =  uicontrol('Parent',H_AL_IT, ... 

Units'j'normalized', ... 

'Callback','create_plots_fcn  plots', ... 

TontSize',12, ... 

'FontWei^t','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], 
'Position',[0.589286  0.01  0.235119  0.0677165], ... 
'String','Create  Plots', ... 
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'Tag'.'Pushbuttonr); 
b  =  uicontrol('Parent',H_ALjrr, ... 

'Units', 'normalized', ... 

'Callback', 'out_count=l;CTeate__plots_fcn  back', ... 
'FontSize',12, ... 

'FontWeiglit','bold', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], . 
Tosition',[0. 178571  0.01  0.235119  0.0677165], ... 
'String','«  Back', ... 

'Tag','Pushbutton  1 '); 
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APPENDIX  AX.  GROSSWEIGHT  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  altitude  iteration 
method. 


function  grosswt_iteration_plots() 

%  Plot  Routine  For  Gross  Weight  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  grosswt_iteration_plots 

global  H_GW_IT  H_GW_IT_P1  H_GW_IT_P2  H_GW_IT_P3  H_GW_IT_P4  H_GW_IT_P5... 
H  GW  IT  P6  H  GW  IT  P7  H  GW  IT  P8  H  GW  IT  P9 


H_GW_IT  =  figureCUnitsVnormalized', ... 

’Color',[0.8  0.8  0.8], ... 

'Colormap',matO, ... 

'NameVGross  Weight  Iteration  Plots', ... 
'NumberTitle'.'off, ... 

'PointerShapeCData',matl, ... 

'Position',[0. 170898  0.0963542  0.65625  0.824219], ... 
'Tag','Figl'); 

b  =  uicontrol('Parent',H_GW_IT, ... 

'Units','normalized', ... 

'FontSize',14, ... 

TontWei^t','bold', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 
Tosition',[0. 173363  0.872038  0.659226  0. 101 106], ... 
'String', 'Plot  Selection  For  Gross  Weight  Iteration', ... 
'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',H_GW_IT, ... 

'Units', 'normalized', ... 

'FontSize',12, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.21875  0.707741  0.568452  0.0647709], ... 
'Stiing'.'Check  The  Boxes  Below  For  Desired  Plots', ... 
'Style','text', ... 

'Tag','StaticText2'); 

H_GW_n'_Pl  =  uicontrol('Parent',H_GW_IT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
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•Position’, [0.150298  0.603476  0.705357  0.0458136], ... 

'String', 'Total  Power  Required  vs  Gross  Weight  ^o  HIGH  Calculations)',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_GW_1T_P2  =  uicontrolCParent',H_GW_lT, ... 

'Units’,'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position’,[0. 151786  0.545901  0.702381  0.0473934], ... 

'String','Rotor  Drag  vs  Gross  Weight',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_GW_IT_P3  =  uicontrolCParent',H_GW_IT, ... 

'Units’,'nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.489907  0.705357  0.0458136], ... 

'String','Required  Collective  Pitch  vs  Gross  Weight',... 

'Style','checkbox', ... 

•Tag’,’Checkboxl'); 

H_GW_IT_P4  =  uicontrol('Parent',H_GW_IT, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position’,[0. 151786  0.432333  0.702381  0.0473934], ... 

'String','lst  Lateral  Cyclic  Term  vs  Gross  Weight',... 

'Slyle','checkbox', ... 

'Tag',’Checkboxl’); 

H_GW_rr_P5  =  uicontrol('Parent',H_GW_lT, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

’Position’,[0. 150298  0.376338  0.705357  0.0458136], ... 

'String','lst  Longitudinal  Cyclic  Term  vs  Gross  Weight',... 

'Slyle','checkbox', ... 

'Tag', 'Checkbox  1') ; 

H_GW_IT_P6  =  uicontrolCParent',H_GW_IT, ... 

Units'j'normalized', ... 

'BackgroundColor', [0.752941  0.752941 0.752941], ... 

’Position',[0. 151786  0.318764  0.702381  0.0473934], ... 

'String','Coefficient  of  Thrust  vs  Gross  Weight',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_GW_IT_P7  =  uicontrol('Parent’,H_GW_IT, ... 

'Units','normali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position’,[0. 150298  0.26277  0.705357  0.0458136], ... 

'String’.'Coefficient  of  Power  vs  Gross  Weiglit',... 

'Style','checkbox', ... 

'Tag’,’Checkboxr); 

H_GW_IT_P8  =  uicontrolCParent',H_GW_IT, ... 

'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941 0.752941], ... 

'Position',[0. 151786  0.205196  0.702381  0.0473934], ... 

'String','Figure  of  Merit  vs  Gross  Weight',... 

'Style', 'checkbox', ... 

'Tag',’Checkboxl'); 
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H_GW_IT_P9  =  uicontrolCParent’,H_GW_IT, ... 

'Units'/normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

’Position',[0. 150298  0.149201  0.705357  0.0458136], ... 

'String','HIGE  Power  Required  vs  Gross  Weight  (Only  if  HIGH  Calcs  Were  Completed)',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 
b  =  uicontrol('Parent',H_GW_IT, ... 

'Units','normalized', ... 

'Callback',’create_plots_fcn  plots', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0.589286  0.01  0.235119  0.0677165], ... 

'Strmg','Create  Plots', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_GW_IT, ... 

'Uiiits',’normalized', ... 

'Callback','out_coimt=l;create_plots_fcn  back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.178571  0.01  0.235119  0.0677165], ... 

'String','«  Back', ... 

'Tag','Pushbuttonl'); 
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APPENDIX  AY.  BLADETAPERRATIO  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  blade  taper  ratio 
iteration  method. 


function  bladetaperratio_iteration_plotsO 

%  Plot  Routine  For  Blade  Taper  Ratio  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  bladetapeiTatio_iteration_plots 

global  H_BTR_IT  H_BTR_IT_P1  H_BTR_IT_P2  H_BTR_IT_P3  H_BTR_IT_P4  H_BTR_rr_P5... 
H  BTR  IT  P6  H  BTR  IT  P7  H  BTR  IT  P8 


H_BTR_rr  =  figure(XInits', 'normalized', ... 

'Color',[0.8  0.8  0.8],... 

'Colormap',matO, ... 

'Name','Blade  Taper  Ratio  Iteration  Plots', ... 
'NumberTitle','ofF, ... 

'PointerShapeCData',matl, ... 

'Position’, [0.170898  0.0963542  0.65625  0.824219], ... 
'Tag’.'Figl'); 

b  =  uicontrol('Parent’,H_BTR_rr, ... 

'Units','normalized', ... 

'BackgroundColor',  [0.847059  0.752941  0.627451], ... 
'FontSi2e',14, ... 

'FontWeight'.'bold’, ... 

'Position', [0.173363  0.872038  0.659226  0.101106], ... 
'String',Tlot  Selection  For  Blade  Taper  Ratio  Iteration', ... 
'Style','text', ... 

'Tag’,'StaticTextl'); 
b  =  uicontrol('Parent',H_BTR_IT, ... 

'Units','normalized', ... 

'BackgroundCoIor',[0.847059  0.752941  0.627451], ... 
'FontSize',12, ... 

'Position',[0.21875  0.707741  0.568452  0.0647709], ... 
'String','Check  The  Boxes  Below  For  Desired  Plots', ... 
'Style’,'text', ... 

'Tag','StaticText2'); 

H_BTR_IT_P1  =  uicontrol('Parent’,H_BTR_IT, ... 
'Units','normalized', ... 

'Position’,[0. 150298  0.603476  0.705357  0.0458136], ... 
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'String', Total  Power  Required  vs  Blade  Taper  Ratio',... 
'Sty!e','checkbox', ... 

'Tag','Checkboxl'); 

H_BTR_IT_P2  =  uicontrol('Parent',H_BTR_IT, ... 
'Units','nonnalized', ... 

'Position',[0. 151786  0.545901  0.702381  0.0473934], ... 
'StTing','Rotor  Drag  vs  Blade  Taper  Ratio',... 

'Slyle','checkbox’, ... 

'Tag','Checkboxl'); 

H_BTR_IT_P3  =  uicontrol('Parent',H_BTR_rr, ... 
'Units','normalized', ... 

'Position',[0. 150298  0.489907  0.705357  0.0458136], ... 
'String','Required  Collective  Pitch  vs  Blade  Taper  Ratio',... 
'Style', 'checkbox', ... 

'Tag','CheckboxT); 

H_BTR_IT_P4  =  uicontrol('Pareiit',H_BTR_IT, ... 
'Umts','noimalized', ... 

'Position', [0.15 1786  0.432333  0.702381  0.0473934], ... 
'String','lst  Lateral  Cyclic  Term  vs  Blade  Taper  Ratio',... 
'Style','checkbox', ... 

'Tag’,'Checkboxr); 

H_BTR_IT_P5  =  uicontrol(Tarent',H_BTR_IT, ... 
'Units','nonnalized', ... 

'Position',[0.150298  0.376338  0.705357  0.0458136], ... 
'String','lst  Longitudinal  Cyclic  Term  vs  Blade  Taper  Ratio',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_BTR_IT_P6  =  uicontrol('Parent',H_BTR_IT, ... 
'Units'j'normalized', ... 

'Position',[0. 151786  0.318764  0.702381  0.0473934], ... 
'String','Coefficient  of  Thrust  vs  Blade  Taper  Ratio',... 

'Style', 'checkbox', ... 

'Tag','Checkboxl'); 

H_BTR_IT_P7  =  uicontrol(Tarent',H_BTR_IT, ... 
'Units','normalized', ... 

'Position', [0.150298  0.26277  0.705357  0.0458136], ... 
'String','Coefficient  of  Power  vs  Blade  Taper  Ratio',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_BTR_IT_P8  =  uicontrol('Parent',H_BTRJT, ... 
'Units','nonnalized', ... 

'Position',[0.151786  0.205196  0.702381  0.0473934], ... 
'String‘,'Figure  of  Merit  vs  Blade  Taper  Ratio',... 
'Style','checkbox', ... 

'Tag','Checld)oxl'); 
b  =  uicontrol('Parent',H_BTR_IT, ... 

'Units','normalized', ... 

'Callback', 'createjplots  fcn  plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.5892860.01  0.235119  0.0677165], ... 
'String','Create  Plots', ... 

'Tag','Pushbuttonl'); 
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b  =  uicontrol('Parent',H_BTR_rr, ... 
'UnitsVnormalized', ... 

'CallbackVout_count=l;CTeate_plots_fcn  back', ... 
'FontSize',12, ... 

'FoiitWei^t','bold', ... 

'Position', [0.178571  0.01  0.2351190.0677165], ... 
'Strmg','«  Back', ... 

'Tag'.'Pushbuttonl'); 
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APPENDIX  AZ.  NO  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  no  iteration 
method. 

function  no_iteration_plotsO 

%  Plot  Routine  For  No  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-fisle  must  be  on  your  path. 

load  no_iteration_plots 


global  H_NO_IT  S_PERF_INPUT  S_MATR_VEC  plot_val  H_NO_IT_Pl  H_NO_IT_P2  H_NO_IT_P3... 
H_NO_rr_P4  filenames  outcount  PLOTVALS  HrVEC  r_vec 

H_NO_n'  =  figureCUnits'.'nomialized', ... 

'Color’,[0.8  0.8  0.8], ... 

'Colormap',mat0, ... 

'Name','No  Iteration  Plots’, ... 

’NumberTitle',’ofP, ... 

'PointerShapeCData',matl, ... 

Tosition’,[0. 169922  0.0976562  0.65625  0.825521], ... 

•Tag’.Tigl’); 

b  =  uicontrol('Parent',H_NO_n', ... 

'Units','normalized', ... 

'FontSize',14, ... 

■FontWei^t',  'bold', . . . 

'Position', [0.173363  0.872038  0.659226  0.101106], ... 

'String','  Plot  Selection  For  Single  Run  (No  Iteration)', ... 

’Style’,'text', ... 

’Tag','StaticTextr); 
b  =  uicontrol('Parent',H_NO_IT, ... 

Units'j'normalized', ... 

'FontSize',12, ... 

'Position',[0.21875  0.707741  0.568452  0.0647709], ... 

'String','Check  The  Boxes  Below  For  Desired  Plots’, ... 

’Style',’text’, ... 

Tag','StaticText2’); 

H_NO_IT_Pl  =  uicontrol('Parent',H_NO_IT, ... 

'Units','normalized', ... 

Tosition',[0. 13244  0.609449  0.732143  0.0456693], ... 

'String','2-D  Thrust  vs.  r/R  (plotted  at  psi  =  0,90,180,270  deg)', ... 
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'Style'.'checkbox', ... 

'Tag'/Checkboxl'); 

H_NO_IT_P2  =  uicontrol('Parent',H_NO_IT, ... 

'Units'.'nonnalized', ... 

'Position', [0.13244  0.551181  0.732143  0.0472441], ... 

'Strmg','3-D  Thrust  vs.  r/RMesh’, ... 

'Style', 'checkbox', ... 

'Tag','Checkboxr); 

H_NO_IT_P3  =  uicontrolCParent',H_NO_IT, ... 

'Units','nomaalized', ... 

'Position', [0.136905  0.489907  0.705357  0.0458136], ... 

'String', Thrust  vs.  Psi  At  Fixed  r/R  Values  (User  will  input  r/R  values)', ... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 
b  =  uicontrol('Parent',H_NO_IT, ... 

'Units','nonnalized', ... 

'Position',[0.136905  0.404724  0.100833  0.0708661], ... 

'String', 'r/R  =', ... 

'Style','text', ... 

'Tag','StaticText3'); 

H_r_VEC  =  uicontrol('Parent',H_NO_IT, ... 

'Units','nornialized', ... 

'Position', [0.258479  0.354331  0.60306  0.12126], ... 

'String',", ... 

'Style','text', ... 

'Tag','StaticText4'); 
b  =  uicontrol('Parent',H_NO_IT, ... 

'Units'/normalized', ... 

'Position', [0.1 36905  0.267717  0.275298  0.0598425], ... 

'String', 'Enter  desired  r/R  values  in  matrix  form  (ie.  [.7,. 8])', ... 

'Style','text', ... 

'Tag','StaticText5'); 
b  =  uicontrol('Parent',H_NO_IT, ... 

'Units'/normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Position', [0.418155  0.270866  0.428571  0.0566929], ... 

'String','[]', ... 

'Callback','global  PLOT_VALS,  PLOT_VALS=str2num(get(gcbo,"String"));',. 
'Style','edit', ... 

'Tag',EditTextl'); 

H_NO_IT_P4  =  uicontrolCParent',H_NO_IT, ... 

'Units','normalized', ... 

'Position', [0.133929  0.177953  0.735119  0.0472441], ... 

'String','2-D  Normal  Force  (Lift)  vs.  r/R  (plotted  at  psi  =  0,90,180,270  deg)' 
'Style','checkbox', ... 

'Tag','Checkboxl'); 
b  =  uicontrol('Parent',H_NO_IT, ... 

'Units','noniialized', ... 

'Position', [0.13244  0.11811  0.735119  0.0456693], ... 

'String','Blank', ... 

'Style','checkbox', ... 

'Tag','Checkboxr); 
b  =  uicontrol('Parent',H_NO_IT, ... 
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'Units'/normalized', ... 

’Callback','create_plots_fcn  plots', ... 

'FontSize',12, ... 

'FontWeight'.’bold', ... 

'Position',[0.583333  0.0188976  0.235119  0.0677165], 
'Strmg','Create  Plots', ... 

'Tag','Pustibuttonl'); 
b  =  uicontrol('Parent',H_NO_IT, ... 

'Units'j'nomialized', ... 

'Callback', 'out_count=l;create_plots_fcn  back', ... 
'FontSize',12, ... 

'FontWeight'j'bold', ... 

'Position',[0. 184524  0.0204724  0.235119  0.0677165], 
'String','«  Back', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_NO_rr, ... 

'Units','nonnalized', ... 

'Position',[0. 13244  0.248819  0.733631  0.292913], ... 
'Style','frame', ... 

'Tag','Framel'); 

assignin('base','r_vec',r_vec) 
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APPENDIX  BA.  BLADETWIST  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  blade  twist 
iteration  method. 


function  bladetwist_iteration_plots() 

%  Plot  Routine  For  Blade  Twist  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  ^e  the  name  of  the  M-file  at  the  MATLAB 
%  prompt  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 


load  bladetwist_iteration_plots 

global  H_BT_IT  H_BT_IT_P1  H_BT_IT_P2  H_BT_IT_P3  H_BT_IT_P4  H_BT_IT_P5... 
H_BT_IT_P6  H_BT_IT_P7  H_BT_IT_P8 

H  BT  IT  =  figure(TJnits', 'normalized', ... 

'Color',[0.8  0.80.8], ... 

'Colormap',matO, ... 

'Name','Blade  Twist  Iteration  Plots', ... 

'NumberTitle','ofF, ... 

'PointerShapeCData',matl, ... 

■Position', [0.170898  0.0963542  0.65625  0.824219], ... 

'Tag','Figl'); 

b  =  uicontrol('Parent',H_BT_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.847059  0.752941  0.627451], ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0. 173363  0.872038  0.659226  0.101106], ... 

'String',Tlot  Selection  For  Blade  Twist  Iteration', ... 

'Style','text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',H_BT_rr, ... 

Units','normalized', ... 

'BackgroundColor', [0.847059  0.752941  0.627451], ... 

TontSize',12, ... 

Tosition',[0.21875  0.707741  0.568452  0.0647709], ... 

'String','Check  The  Boxes  Below  For  Desired  Plots', ... 

'Style','text’, ... 

'Tag','StaticText2'); 

H_BT_IT_P1  =  uicontrolCParent',H_BT_rr, ... 
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'UnitsVnormalized', ... 

'Position',[0. 150298  0.603476  0.705357  0.0458136], 
'String', Total  Power  Required  vs  Blade  Twist',... 
'Style','checkbox', ... 

'Tag’,'Clieckboxr); 

H_BT_IT_P2  =  uicontrol('Parent',H_BT_IT, ... 
'Units','noiinalized', ... 

'Position',[0.151786  0.545901  0.702381  0.0473934], 
'String', 'Rotor  Drag  vs  Blade  Twist’,... 

'Style', 'checkbox', ... 

'Tag','Checkboxr); 

H_BT_1T_P3  =  uicontrol(Tarent',H_BT_IT, ... 
'Units','notTnali2ed', ... 

'Position',[0. 150298  0.489907  0.705357  0.0458136], 
'String',’Required  Collective  Pitch  vs  Blade  Twist',... 
'Style','checkbox', ... 

'Tag’,'Checkboxl'); 

H_BT_rr_P4  =  uicontrolCParent',H_BT_IT, ... 
'Units','nomialized', ... 

'Position', [0.151786  0.432333  0.702381  0.0473934], 
'String’,'lst  Lateral  Cyclic  Term  vs  Blade  Twist',... 
'Style','checkbox', ... 

'Tag’,'Checkboxl'); 

H_BT_IT_P5  =  uicontrolCParent',H_BT_IT, ... 
'Units','nonnalized', ... 

'Position',[0. 150298  0.376338  0.705357  0.0458136], 
'String',' 1st  Longitudinal  Cyclic  Term  vs  Blade  Twist',.. 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_BT_IT_P6  =  uicontrolCParent',H_BT_IT, ... 
'Units','nonnalized', ... 

'Position',[0.151786  0.318764  0.702381  0.0473934], 
'String','Coefficient  of  Thrust  vs  Blade  Twist',... 
'Style','checkbox’, ... 

'Tag','Checkboxr); 

H_BT_IT_P7  =  uicontrolCParent',H_BT_IT, ... 
'Units','normalized', ... 

'Position', [0.150298  0.26277  0.705357  0.0458136], .. 
'String','Coefficient  of  Power  vs  Blade  Twist',... 
'Style','checkbox', ... 

'Tag’,'Checkboxl'); 

H_BT_IT_P8  =  uicontrolCParent',H_BT_IT, ... 
'Units','nonnalized', ... 

'Position',[0. 151786  0.205196  0.702381  0.5473934], 
'Stting’,Tigure  of  Merit  vs  Blade  Twist',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 
b  =  uicontrol('Parent',H_BT_IT, ... 

'Units','nonnalized', ... 

'Callback','create_plots_fcn  plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.589286  0.01  0.235119  0.0677165], ... 
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'StringVCreate  Plots', ... 

'Tag'.’Pushbuttonl'); 
b  =  uicontrol('Parent',H_BT_rr, ... 

'Umts','normalized', ... 

'Callback', 'out_counl=l;create_plots_fcn  back', ... 
'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0. 178571  0.01  0.235119  0.0677165], ... 
'Strmg','«  Back', ... 

'Tag','Pushbuttonr); 
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APPENDIX  BB.  ROTORRAD  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  rotor  radius 
iteration  method. 


function  rotorrad_iteration_plots() 

%  Plot  Routine  For  Rotor  Radius  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  rotorrad_iteration_plots 

global  H_RBR_IT  H_RBR_IT_P1  H_RBRJT_P2  H_RBR_IT_P3  H_RBR_IT_P4  H_RBR_IT_P5... 
H_RBR_IT_P6 

H_RBR_rr  =  figureCUnitsVnormalized', ... 

’Color',[0.8  0.8  0.8], ... 

'Colonnap',matO, ... 

'Name','Main  Rotor  Blade  Radius  Iteration  Plots', ... 

'NumberTitle','ofF, ... 

'PointerShapeCDa1a',matl, ... 

'Position',[0. 170898  0.0963542  0.65625  0.824219], ... 

’Tag',Tigl'); 

b  =  uicontrol('Parent',H_RBR_IT, ... 

'Units','normali2ed', ... 

'FontSi2e',14, ... 

TontWeight','bold’, ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 

'Position',[0. 173363  0.872038  0.659226  0.101106], ... 

'String'.Tlot  Selection  For  Rotor  Blade  Radius  Iteration', ... 

'Slyle','text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',H_RBR_n’, ... 

’Units','normalized', ... 

'FontSi2e',12, ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 

'Position',[0.21875  0.707741  0.568452  0.0647709], ... 

'StTing','Check  The  Boxes  Below  For  Desired  Plots', ... 

'Style','text', ... 

Tag','StaticText2'); 

H_RBR_IT_P1  =  uicontrolCParent',H_RBR_IT, ... 

'Units','nortnalized', ... 

’BackgroundColor',[0.752941  0.752941  0.752941], ... 
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'Position', [0.150298  0.603476  0.705357  0.0458136], ... 

'String', 'Rotor,  Tail  and  Total  Power  Required  vs  Blade  Radius',... 
'Style','checkbox', ... 

'Tag'.'CheckboxT); 

H_RBR_IT_P2  =  uicontrol('Parent',H_RBR_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',  [0.15 1786  0.545901  0.702381  0.0473934], ... 

'String','Aux  Thrust  and  Drag  vs  Blade  Radius',... 

'Style','checkbox', ... 

'Tag','Checkbox  1 ') ; 

H_RBR_IT_P3  =  uicontrol('Parent',H_RBR_IT, ... 

'Units','normali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0. 150298  0.489907  0.705357  0.0458136], ... 
'String','Required  Collective  Pitch  vs  Blade  Radius',... 
'Style','checkbox', ... 

'Tag’,'Checkboxr); 

H_RBR_IT_P4  =  uicontrol(Tarent',H_RBR_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.15 1786  0.432333  0.702381  0.0473934], ... 

'String',Tail  Rotor  Power  Required  vs  Blade  Radius',... 
'StyIe','checkbox', ... 

'Tag',’Checkboxr); 

H_RBR_IT_P5  =  uicontrolCParent’,H_RBR_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.376338  0.705357  0.0458136], ... 

'String', 'Figure  of  Merit  vs  Blade  Radius',... 

'Style','checkbox', ... 

'Tag','Checkboxr); 

H_RBR_IT_P6  =  uicontrolCParent’,H_RBR_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.151786  0.318764  0.702381  0.0473934], ... 

'String','Disk  Loading  vs  Blade  Radius',... 

'Style', 'checkbox', ... 

'Tag'.'CheckboxT) ; 
b  =  uicontrol('Parent',H_RBR_IT, ... 

'Units'.'normalized', ... 

'Callback','create_plots_fcn  plots', ... 

'FontSize',12, ... 

TontWeight'.'bold', ... 

Tosition', [0.589286  0.01  0.235119  0.0677165], ... 

'String'.'Create  Plots', ... 

'Tag'.'Pushbutton  1 '); 
b  =  uicontrol('Parent',H_RBR_n', ... 

'Units','nonnalized', ... 

'Callback','out_count=l;createjplots_fcn  back', ... 

'FontSize',12, ... 

'FontWeight'.'bold', ... 

'Position', [0.178571  0.01  0.235119  0.0677165], ... 
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'StringV«  Back', .. 
'Tag','Pushbutton  1 ') 
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APPENDIX  BC.  ROTORSPD  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  rotor  speed 
iteration  method. 


function  rotorspd_iteration_plots() 

%  Plot  Routine  For  Rotor  Speed  Iteration, 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  rotorspd_iteration_plots 

global  H_RBS_IT  H_RBS_IT_P1  H_RBS_IT_P2  H_RBS_IT_P3  H_RBS_IT_P4  H_RBS_IT_P5 

H_RBS_IT  =  figureCUnits', 'normalized', ... 

'Color',[0.8  0.8  0.8], ... 

'Colormap',matO, ... 

Name','Main  Rotor  Blade  Speed  Iteration  Plots', ... 

NumberTitle','off, ... 

TointerShapeCData',matl, ... 

'Position',[0. 170898  0.0963542  0.65625  0.824219], ... 

'Tag','Figl'); 

b  =  uicontrol('Parent',H_RBS_rr, ... 

Units','normalized', ... 

'FontSize',14, ... 

'FontWei^t','bold', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0. 173363  0.872038  0.659226  0.101106], ... 

'String','Plot  Selection  For  Rotor  Blade  Speed  Iteration', ... 

'Slyle','text', ... 

Tag','StaticTextr); 
b  =  uicontrol('Parent',H_RBS_n’, ... 

'Units', 'normalized', ... 

'FontSi2e',12, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.21875  0.707741  0.568452  0.0647709], ... 

'String','Check  The  Boxes  Below  For  Desired  Plots', ... 

'Style','text', ... 

'Tag','StaticText2'); 

H_RBS_IT_P1  =  uicontrol('Parent',H_RBS_IT, ... 

'Units','normali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0. 150298  0.603476  0.705357  0.0458136], ... 
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'String', Tlotor,  Tail  and  Total  Power  Required  vs  Blade  Speed',... 
'Style','checkbox’, ... 

'Tag’,'Checkboxl'); 

H_RBS_n'_P2  =  uicontrol('Parent',H_RBS_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Tosition',[0.151786  0.545901  0.702381  0.0473934], ... 

'String',' Aux  Thrust  and  Drag  vs  Blade  Speed',... 

'Style','checkbox’, ... 

'Tag’,'Checkboxl'); 

H_RBS_IT_P3  =  uicontrol('Parent',H_RBS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.489907  0.705357  0.0458136], ... 
'String','Required  Collective  Pitch  vs  Blade  Speed',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_RBS_IT_P4  =  uicontrol('Parent’,H_RBS_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.15 1786  0.432333  0.702381  0.0473934], ... 

'String',Tail  Rotor  Power  Required  vs  Blade  Speed',... 
'Style','checkbox’, ... 

'Tag’,’Checkboxl'); 

H_RBS_IT_P5  =uicontrol('Parent',H_RBS_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.376338  0.705357  0.0458136], ... 
'String',Disk  Loading  vs  Blade  Speed',... 

'Style','checkbox', ... 

'Tag','Checkboxl'); 
b  =  uicontrol('Parent',H_RBS_IT, ... 

'Units','nonnalized', ... 

'Callback','create_plots_fcn  plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.589286  0.01  0.235119  0.0677165], ... 

'String', 'Create  Plots', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_RBS_lT, ... 

'Units','normalized', ... 

'Callback','out_count=l;CTeate_plots_fcn  back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0. 178571  0.01  0.235119  0.0677165], ... 

'String', '«  Back', ... 

'Tag','Pushbutton  1 '); 
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APPENDIX  BD.  STARTOFTAPER  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  start  of  taper 
iteration  method. 


function  startoftaper_iteration_plotsO 

%  Plot  Routine  For  Start  of  Taper  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  childrea  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  startoftaper_iteration_plots 

global  H_SOT_IT  H_SOT_IT_Pl  H_SOT_IT_P2  H_SOT_IT_P3  H_SOT_IT_P4  H_SOT_IT_P5... 
H  SOT  IT  P6H  SOT  IT  P7H  SOT  IT  P8 


H_SOT_IT  =  figure('Units', 'normalized', ... 

'Color', [0.8  0.8  0.8], ... 

'Colormap',matO, ... 

'Name','Start  Of  Taper  Position  Iteration  Plots', ... 
'NumberTitle','off, ... 

'PointerShapeCData',matl, ... 

'Position',[0. 170898  0.0963542  0.65625  0.824219], ... 
'Tag',Tigl'); 

b  =  uicontrol('Parent',H_SOT_rr, ... 

'Umts','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSi2e',14, ... 

'FontWei^t','bold', ... 

'Position', [0.173363  0.872038  0.659226  0.101106], ... 
'Strmg',Tlot  Selection  For  Start  Of  Taper  Position  Iteration', ... 
'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',H_SOT_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',12, ... 

'Position',[0.21875  0.707741  0.568452  0.0647709], ... 
'String','Check  The  Boxes  Below  For  Desired  Plots', ... 
'Style','text', ... 

'Tag','StaticText2'); 

H_SOT_IT_Pl  =  uicontrol(Tarent',H_SOT_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], ... 
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'Position', [0.150298  0.603476  0.705357  0.0458136], ... 

'String',Total  Power  Required  vs  Start  Of  Taper  Position',... 
'Style','checkbox', ... 

'Tag','CheckboxT); 

H_SOT_IT_P2  =  uicontrol('Parent',H_SOT_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 151786  0.545901  0.702381  0.0473934], ... 
'String','Rotor  Drag  vs  Start  Of  Taper  Position',... 

'Style','checkbox', ... 

'Tag','CheckboxT); 

H_SOT_IT_P3  =uicontrol('Parent',H_SOT_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 150298  0.489907  0.705357  0.0458136], ... 
'String','Required  Collective  Pitch  vs  Start  Of  Taper  Position',... 
'Style', 'checkbox', ... 

'Tag','Checkboxr); 

H_SOT_IT_P4  =  uicontrol('Parent',H_SOT_IT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.151786  0.432333  0.702381  0.0473934], ... 

'String','lst  Lateral  Cyclic  Term  vs  Start  Of  Taper  Position',... 
'Style','checkbox', ... 

'Tag’,'Checkboxr); 

H_SOT_IT_P5  =  uicontrol('Parent',H_SOT_rr, ... 
'Units','normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position', [0.150298  0.376338  0.705357  0.0458136], ... 

'String','lst  Longitudinal  Cyclic  Term  vs  Start  Of  Taper  Position',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_SOT_IT_P6  =  uicontrol('Parent',H_SOTJT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.151786  0.318764  0.702381  0.0473934], ... 
'String','Coefficient  of  Thrust  vs  Start  Of  Taper  Position',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_SOT_n'_P7  =  uicontrol('Parent’,H_SOT_IT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Position', [0.150298  0.26277  0.705357  0.0458136], ... 
'String','Coefficient  of  Power  vs  Start  Of  Taper  Position',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_SOT_rr_P8  =  uicontrol('Parent',H_SOT_IT, ... 
'Units','nomialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.151786  0.205196  0.702381  0.0473934], ... 
'String','Figui:e  of  Merit  vs  Start  Of  Taper  Position',... 
'Style','checkbox', ... 

'Tag','CheckboxT); 
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b  =  uicontrol('Parent',H_SOT_rr, ... 
’Units'j'nonnalized', ... 

'Callback','create_plots_fcn  plots', ... 

'FoiitSize',12, ... 

■FontWeight'.'bold', ... 

'Position’,[0.589286  0.01  0.235119  0.0677165], ... 
'String'.'Create  Plots', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol('Parent',H_SOT_rr, ... 
'Units','nonnalized', ... 

'Callback’,'out_count=l;createjplots_fcn  back', ... 
TontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0. 178571  0.01  0.235119  0.0677165], ... 
'Strmg','«  Back', ... 

'Tag','Pushbuttonl'); 
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APPENDIX  BE.  WINGSPANAREA  ITERATION  PLOTS.M 


This  script  M-file  creates  a  screen  listing  available  plots  for  the  wing  span  area 
iteration  method. 


function  wingspanarea_iteration_plotsO 

%  Plot  Routine  For  Wing  Span  Area  Iteration. 

%  JANRAD  98  VERSION  5.0 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 


load  wingspanarea_iteration_plots 

global  H_WSA_IT  H_WSA_IT_P1  H_WSA_IT_P2  H_WSA_IT_P3  H_WSA_IT_P4  H_WSA_IT_P5... 
H_WSA_IT_P6  H_WSA_IT_P7  H_WSA_IT_P8  H_WSA_IT_P9  H_WSA_IT_P10 

H_WSA_IT  =  figureCUnits'.’normalized', ... 

'Color',[0.8  0.8  0.8], ... 

'Colormap',matO, ... 

'NameVWing  Span  Area  Iteration  Plots’, ... 

'NumberTitle','ofE’, ... 

TointerShapeCData',matl, ... 

•Position', [0.170898  0.0963542  0.65625  0.824219], ... 

'Tag’,’Figl’); 

b  =  uicontrol('Parent',H_WSA_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWeight’,'bold', ... 

•Position', [0.173363  0.872038  0.659226  0.101106], ... 

'String','Plot  Selection  For  Wing  Span  Area  Iteration', ... 

'Slyle’,'text', ... 

’Tag’,'StaticTextl'); 
b  =  uicontrol('Parent’,H_WSA_IT, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',12, ... 

'Position',[0.21875  0.707741  0.568452  0.0647709], ... 

'String','Check  The  Boxes  Below  For  Desired  Plots', ... 

'Style’,'text', ... 

'Tag','StaticText2'); 

H_WSA_IT_P1  =  uicontrol('Parent',H_WSA_IT, ... 

'Units','normalized', ... 
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■BackgroundColor', [0.752941  0.752941  0.752941], ... 
'Position', [0.150298  0.603476  0.705357  0.0458136], ... 

'String', Total  Power  Required  vs  Wing  Span  Area',... 
'Style','checkbox', ... 

'Tag’,'Checkboxr); 

H_WSA_IT_P2  =  uicontrol('Parent',H_WSA_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.15 1786  0.545901  0.702381  0.0473934], ... 
'String',' Aux  Thrust  and  Drag  vs  Wing  Span  Area',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_WSA_IT_P3  =  uicontrol('Parent',H_WSA_IT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 150298  0.489907  0.705357  0.0458136], ... 
'String','Required  Collective  Pitch  vs  Wing  Span  Area',.. 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_WSA_IT_P4  =  uicontrol('Parent',H_WSA_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 151786  0.432333  0.702381  0.0473934], ... 
'String','Wing  Lift  vs  Wing  Span  Area',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_WSA_IT_P5  =  uicontrol('Parent',H_WSA_IT, ... 
'Units','noinialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 150298  0.376338  0.705357  0.0458136], ... 
'String',Tail  Rotor  Power  Required  vs  Wing  Span  Area', 
'Slyle','checkbox', ... 

'Tag','Checkboxl'); 

H_WSA_IT_P6  =  uicontrol('Parent',H_WSA_lT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 151786  0.318764  0.702381  0.0473934], ... 
'String','Coefficient  of  Thrust  vs  Wing  Span  Area',... 
'Style','checkbox', ... 

'Tag','Checkboxr); 

H_WSA_IT_P7  =  uicontrol('Parent',H_WSA_IT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 150298  0.26277  0.705357  0.0458136], ... 
'String','CoefBcient  of  Power  vs  Wing  Span  Area',... 
'Style','checkbox', ... 

'Tag','Checkboxl'); 

H_WSA_rr_P8  =  uicontrol('Parent',H_WSA_lT, ... 
'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0. 151786  0.205196  0.702381  0.0473934], ... 
'String’,'Figure  of  Merit  vs  Wing  Span  Area',... 
'Style','checkbox', ... 
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Tag','Checkboxl’); 

H_WSA_IT_P9  =  uicoiitroI('Parent’,H_WSA_IT, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position', [0.150298  0.14376  0.702381  0.0473934], ... 
'String','Disk  Loading  vs  Wing  Span  Area', ... 
'Style','checkbox', ... 

'Tag'j'Checkboxl'); 

H_WSA_1T_P10  =  uicontrolCParent',H_WSAJT, ... 
'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
Tosition', [0.150298  0.0853081  0.702381  0.0473934], ... 
'String','Percent  of  Total  Lift  on  Wing  vs  Wing  Span  Area', 
'Style','checkbox', ... 

'Tag'.'Checkboxl'); 
b  =  uicontrol('Parent',H_WSA_IT, ... 

'Units','nonnalized', ... 

'Callback','create__plots_fcn  plots', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.589286  0.01  0.235119  0.0677165], ... 
'String','Create  Plots', ... 

'Tag'.'Pushbuttonl'); 
b  =  uicontrol('Parent'.H_WSA_IT, ... 

'Units','normalized', ... 

'Callback', 'out_count=l;create_plots_fcn  back', ... 
'FontSize',12, ... 

TontWei^t','bold', ... 

'Position',[0.178571  0.01  0.235119  0.0677165], ... 
'String','«  Back', ... 

'Tag','Pushbuttonl '); 
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APPENDIX  BF.  QUIT_GUI.M 


This  file  creates  GUI  to  verify  the  users  intention  to  quit  JANRAD  98. 


function  quit_gui() 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

%  JANRAD  98  VERSION  5.0 

load  quit _gui 

a  =  figure('Units','normalized', ... 

'Color’,[0.8  0.80.8],... 

’Colorniap',matO, ... 

’MenuBarVnone’, ... 

'Name','Quit  JANRAD  98?', ... 

'NumberTitleVoff, ... 

'PointerShapeCData',matl, ... 

■Position', [0.235938  0.433333  0.389063  0.266667], ... 

-Tag'.Tign; 

b  =  uicontrol('Parent’,a, ... 

UnitsVnormalized', ... 

'Callback', 'close  (g(^', ... 

'FontSize',12, ... 

'FontWeight'.’bold', ... 

'Position', [0.188755  0.273438  0.240964  0.15625], ... 

'String','NO', ... 

'Tag','F^hbuttonl'); 
b  =  uicontrol('Parent',a, ... 

'Units’,'nonnalized', ... 

'Callback', 'close  all,clear,clear  gjobal', ... 

'FontSize',12, ... 

'FontWeight',’bold', ... 

Tosition',[0.566265  0.273438  0.240964  0.15625], ... 

'String',’YES', ... 

'Tag','Pushbutton2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0. 192771  0.59375  0.618474  0.289062], ... 
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'String', 'Do  You  Really  Want  to  Quit  JANRAD  98?', ... 
'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 
'Position',[0.0401606  0.0625  0.907631  0.898438], ... 
'Style','franie', ... 

'Tag','Franier); 


316 


APPENDIX  BG.  STABILITY  CONTROL  INPUT1.M 


This  M-file  creates  the  first  of  two  stability  and  control  module  parameter  input 

screens 


function  stability_control_input_10 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  children.  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  handle  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  stabilily_control_input_l 

a  =  figure('Umts','normalized', ... 

’Color',[0.8  0.8  0.8], ... 

'Colormap’,matO, ... 

'CreateFcn','global  MESH_VAL,  MESH_VAL=0;;', ... 

'Name','Stabihty  and  Control  Parameters', ... 

'NumberTitle'.'ofP, ... 

'PointerShapeCData',matl, ... 

'Position’,[0.005  0.04  0.9975  0.89], ... 

'Tag','Fig2'); 
b  =  uimenu('Parent',a, ... 

'Label', 'JANRAD  Options', ... 

'Tag'.'uimenul'); 
c  =  uimenuCParent’,b, ... 

'Callback','perfonnance_input_fcn  quit', ... 

'Laber,'Quit  JANRAD', ... 

'Tag', 'JANRAD  OptionsSubuimenul'); 
c  =  uimenu('Parent',b, ... 

'Callback','perfonnance_input_fcn  return', ... 

'Laber,'Retum to  Begining', ... 

'Tag', 'JANRAD  OptionsSubuimenul'); 
c  =  uimenuCParent',b, ... 

'Callback','performance_mput_fcn  delta_input', ... 

'Enable','off', ... 

'l/aber,'Change  Input  Parameters', ... 

'Tag','Subuimenur); 
c  =  uimenuCParent',b, ... 

'Callback','performance_mput_fcn  about', ... 

'Label','About  Janrad  98 ...', ... 

'Separator','on', ... 

'Tag','Subuimenur); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], ... 
'Position',[0.0197109  0.75  0.17477  0.0538462], ... 
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'StrmgVFlapping  Moment  of  Inertia  (slug-ft''2)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

Units'.'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','PA=get(gcbo,"Stimg");S_USER_INPUT.PA=str2num(PA);', ... 
'Position',[0.215506  0.751923  0.0985545  0.0480769], ... 

'Style','edit', ... 

'Tag',’EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0197109  0.694231  0.17477  0.0538462], ... 

'String', 'Hub  Height  Above  Waterline  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uiconlrol('Parent',a, ... 

'Units','noiinalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','temp=get(gcbo,"String");S_USER_INPlJT.temp=str2num(temp);' 
'Position',(0.215506  0.694231  0.0985545  0.0480769], ... 

'Style','edit', ... 

'Tag',EditTextl'); 
b  =  uicontrol(Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.021025  0.640385  0.17477  0.05], ... 

'String','Hiib  Fuselege  Station  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','Vinf=get(gcbo,"String");S_USER_INPUT.Vinf=str2nmn(Vinf);', 
Tosition', [0.2 15506  0.640385  0.0985545  0.05], ... 

'Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0.0197109  0.582692  0.17477  0.05], ... 

'String','Hub  Position  Right  of  Buttline  (ft)', ... 

'Style'.'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Umts','nornialized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','GW=get(gcbo,"String");S_USER_lOTUT.GW=str2num(GW);',.. 
'Position',[0.21682  0.586538  0.0972405  0.0480769], ... 

'Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent',a, ... 
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'Units'/normalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position', [0.0197109  0.521154  0.17477  0.0538462], ... 

'String','Nfest  Incidence  (negative  fwd-degrees)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'omega=get(gcbo,"StTing");S_USER_INPUT.omega=str2mun(omega);', ... 
'Position',[0.215506  0.528846  0.0985545  0.0480769], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position', [0.03 15375  0.353846  0.173456  0.0480769], ... 

'String','Height  Above  waterline  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1 1], ... 

'Callback', 'naz=get(gcbo,"String");S_USER_INPUT.naz=str2nuin(naz);', ... 
'Position',[0.215506  0.351923  0.0985545  0.0480769], ... 

'Slyle','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.0341656  0.294231  0.17477  0.05], ... 

'String',Tuselage  Station  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1  1], ... 

'Callback','thetao=get(gcbo,"String");S_USER_INPUT.thetao=str2num(thetao);’, ... 
'Position',[0.215506  0.294231  0.0985545  0.05], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normali2sd', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0341656  0.238462  0.173456  0.0480769], ... 

'String',’Position  Right  of  Buttline  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [1  1 1], ... 

'Callback','Swing=get(gcbo,"String");S_USER_INPUT.Swing=str2num(Swing);', ... 
'Position', [0.2 15506  0.236538  0.0985545  0.0480769], ... 
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-Style’, 'edit', ... 

'Tag’,'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normaIized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0341656  0.182692  0.173456  0.0480769], ... 

'String', 'Alpha  Zero  Lift  (degrees)', ... 

'Style', 'text', ... 

'Tag’,'StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback',’bwing=get(gcbo,"String");S_USER_INPUT.bwing=str2num(bwmg);', ... 
Tosition’,[0.215506  0.180769  0.0985545  0.0480769], ... 

'Style', 'edit', ... 

Tag','EditTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.034 1656  0.126923  0.173456  0.0480769], ... 

'String', 'CL  Max', ... 

'Style','text’, ... 

'Tag','StaticText2'); 
b  =  uicontrol(Tarent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','CLwing=get(gcbo,’'String");S_USER_lNPUT.CLwing=str2num(CL\ving);', ... 
'Position',[0.215506  0.125  0.0985545  0.0480769], ... 

'Style', 'edit', ... 

'Tag’,EditTextl'); 
b  =  iucontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position’,[0.03 54796  0.0692308  0.173456  0.0557692], ... 

'String', 'Dynamic  Pressme  Ratio  (page  489-Prouty)', ... 

'Style', 'text', ... 

’Tag’,'StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','CDowing=get(gcbo,"String");S_USER_rNPUT.CDowing=str2niun(CDowing);', . 
'Position’,[0.214192  0.0711538  0.0998686  0.0480769], ... 

'Style’,’edit', ... 

Tag',EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','nomialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0341656  0.0269231  0.173456  0.0346154], ... 

'String','Lift  Curve  Slope', ... 

'Sfyle','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 
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'BackgroimdColor',[l  11],... 

'CallbackVtwist=get(gcbo,"String'');S_USER_INPUT.twist=str2niim(twist);', 
'Position', [0.21682  0.0173077  0.0985545  0.0480769], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.688073  0.729207  0.173001  0.0464217], ... 

'String','Height  Above  Waterline  (ft)', ... 

'Style','text', ... 

'Tag',’StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroiindColor',[l  1  1], ... 

'Callback', 'a=get(gcbo,"Slring");S_USER_INPUT.a=str2nimi(a);', ... 
'Position’,[0.880734  0.729207  0.0982962  0.0483559], ... 

'Style',’edit', ... 

'Tag’,'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position', [0.688073  0.659574  0.174312  0.0483559], ... 

'String','Hub  Fuselage  Station  (ft)', ... 

'Style',text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Callback',Taux=get(gcbo,"String");S_USER_INPUT.Taux=str2niiin(Taux);', 
'Position', [0.882045  0.659574  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag’,'EditTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',6, ... 

'Position',[0.688073  0.591876  0.174312  0.0483559], ... 

'String',Tosition  Right  of  Buttline  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback','Afh=get(gcbo,"String");S_USER_INPUT. Afh=str2nuni(Afh);', ... 
'Position’,[0.882045  0.59381  0.0982962  0.0483559], ... 

'Style'.'edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nornialized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position',[0.688073  0.528046  0.174312  0.0483559], ... 

'String','Niraiber  of  Blades', ... 
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'StyleVtext', ... 

'Tag’,'StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','Afv=get(gcbo,"String");S_USER_INPUT.Afv=str2num(Afv');', ... 
'Position',[0.882045  0.529981  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  iiicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.688073  0.464217  0.174312  0.0483559], ... 

'String', 'Blade  Chord  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','noixnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','Svert=get(gcbo,"String");S_USER_INPUT.Svert=str2num(Svert);', ... 
'Position',[0.882045  0.466151  0.0982962  0.0483559], ... 

'Style’,'edit', ... 

'Tag’,’EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.688073  0.398453  0.174312  0.0483559], ... 

'String', 'Blade  Radius  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback', 'bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);’, ... 
'Position',[0.882045  0.400387  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.688073  0.334623  0.174312  0.0483559], ... 

'String', 'Lift  Curve  Slope', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',(l  1  1], ... 

'Callback','CLvert=get(gclx),"String");S_USER_INPUT.CLvert=str2num(CLvert) 
'Position',[0.882045  0.336557  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','nomialized', ... 
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■BackgroundColor', [0.752941  0.752941  0.752941], ... 

■Position', [0.687254  0.261538  0.17477  0.0538462], ... 

'String','Rotational  Velocity  (rad/sec)', ... 

'Style','text', ... 

'Tag’,'StaticText2'); 
b  =  mcontrolCParent',a, ... 

'Units’, 'nonnalized', ... 

'BackgroundColor', [1  1  1], ... 

'Callback','CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=sti2num(CDovert);', 
'Position',[0.882045  0.272727  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position', [0.687254  0.192308  0.17477  0.0596154], ... 

'String',Tlap  Moment  of  Inertia  (slug-ft^2)', ... 

'Style','text’, ... 

'Tag','StaticText2’) ; 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1  1], ... 

'Callback','Shoriz=get(gcbo,"String");S_USER_INPUT.Shoiiz=str2num(Shoriz);', ... 
'Position',[0.882045  0.206963  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent’,a, ... 

'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

■Position’, [0.688073  0.141199  0.174312  0.0483559], ... 

'String',T)elta-3  Angle  (degrees)', ... 

'Style','text', ... 

'Tag’,'StaticText2’); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [1  1 1], ... 

'Callback', 'bhoriz=get(gcbo,"String");S_USER_INPUT.bhori^str2num(bhoriz);', ... 
'Position', [0.882045  0.145068  0.0982962  0.0464217], ... 

'Style'.'edif, ... 

'Tag’,'EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition’, [0.688073  0.0773694  0.174312  0.0483559], ... 

'String','Blade  Twist  (degrees)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1  1  1], ... 

'Callback','CLhoriz=get(gcbo,"String");S_USER_INPUT.CLhoriz=str2num(CLhoriz);', .. 
'Position',[0.882045  0.0793037  0.0982962  0.0483559], ... 

'Style',’edit', ... 
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Tag'.'EditTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units', 'normalized', ... 

'Callback','petfomiance_input_fcn  back', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.339028  0.0115385  0.164258  0.0807692], ... 
'String','«  Back', ... 

'Tag','Pushbuttonr); 
b  =  uicontrol(Tarent',a, ... 

'Units','normalized', ... 

'Callback','perfonnance_input_fcn print', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0.509855  0.00961538  0.164258  0.0807692], ... 
'String','Print  Screen', ... 

'Tag','Pushbutton2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'Callback','perfonnance_input_fcn  cnx', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0.339028  0.1  0.164258  0.0807692], ... 
'String','C^cer, ... 

'Tag','Pushbutton3'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'Callback',niat2, ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

Position',[0.51117  0.1  0.164258  0.0807692], ... 
'String','Continue  »', ... 

Tag','Pushbutton4'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 
'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0.0175439  0.805243  0.294486  0.0898876], ... 
'String','MAIN  ROTOR  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'FontSize',14, ... 

TontWeight','bold', ... 

'Position',[0.022339  0.403846  0.296978  0.0903846], ... 
'String','VERTICAL  FIN  PARAMETERS', ... 
'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 
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'BackgroundColor',10.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWeight'.ljold', ... 

'Position', [0.755357  1.09524  0.296199  0.0831721], ... 

'String',’MAIN  ROTOR  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941 0.752941], ... 

'FontSi2e',14, ... 

'FontWeight','bold', ... 

'Position', [0.686763  0.798839  0.288336  0.0889749], ... 

'String',TAIL  ROTOR  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position', [0.122807  0.917603  0.763158  0.0692884], ... 

'String','STABILITY  AND  CONTROL  PARAMETERS  (PAGE  1  OF  2)', ... 

'Style','text', ... 

'Tag','StaticText3'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWeight','bold', ... 

'Position',[0.360419  0.796905  0.288336  0.0889749], ... 

'String','HORIZONTAL  TAIL  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1  1], ... 

'Callback','Shoriz=get(gcbo,"String");S_USER_rNPUT.  Shoriz=str2num(Shoriz);', ... 
'Position',[0.554391  0.206963  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.360053  0.196154  0.173456  0.0557692], ... 

'String','Fuselage  Downwash  Ratio  (page  489  Prouty)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','noixnalized', ... 

'BackgroimdColor',[l  1 1], ... 

'Callback', 'CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=str2nuin(CDovert);', . 
'Position',[0.554391  0.272727  0.0982962  0.0483559], ... 
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'Style', 'edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units' ,'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.358739  0.261538  0.17477  0.0538462], ... 

'String','Rotor  Downwash  Ratio  (page  489  Prouty)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol(Tarent',a, ... 

'Units' ,'nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert);', . 
'Position',[0.554391  0.336557  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag’,'EditTextr); 
b  =  uicontrol(Tarent',a, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.360053  0.328846  0.173456  0.0538462], ... 

'String','Dynaniic  Pressure  Ratio  (page  489  Prouty)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol(Tarent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','bvert=get(gcbo,"Stiing");S_USER_INPUT.bvert=str2num(bvert);', ... 
Tosition',[0.554391  0.400387  0.0982%2  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.360419  0.398453  0.174312  0.0483559], ... 

'String', 'Lift  Curve  Slope', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','Svert=get(gcbo,"String");S_USER_INPUT.Svert=sti2num(Svert);', ... 
'Position',[0.554391  0.466151  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol(Tarent',a, ... 

'Units','nonnaIized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.360419  0.464217  0.174312  0.0483559], ... 

'String', 'Angle  of  Incidence  (degrees)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nomialized', ... 
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'BackgroundColor',[l  1  1], ... 

'CallbackVAfv=get(gcbo,"String");S_USER_rNPUT.Afv=str2num(Afv);', .. 
'Position', [0.554391  0.529981  0.0982962  0.0483559], ... 

'Style’,'edit', ... 

'Tag’,'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units',’nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.360419  0.528046  0.174312  0.0483559], ... 

'String', '.^pha  Zero  Lift  (degrees)', ... 

'Style','text', ... 

'Tag',’StaticText2'); 
b  =  uicontrol(Tarent',a, ... 

Units'.'normalized', ... 

'BackgroundColor', [1 1  1], ... 

'CaUback','A£h=get(gcbo,"String'’);S_USER_INPUT.Afh=str2num(Afh);',.. 
'Position', [0.554391  0.59381  0.0982962  0.0483559], ... 

'Style'.'edit', ... 

'Tag','EditTextl'); 
b  =  uicontrolCParent'.a, ... 

'Units','nomiali2ed', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'FontSize',6, ... 

'Position', [0.360053  0.590385  0.173456  0.0480769], ... 

'String','Position  Right  of  Buttline  (ft))', ... 

'Slyle','text', ... 

’Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normali2ed', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',Taux=get(gcbo,"String'');S_USER_INPUT.Tauxr=str2num(Taux) 
'Position',[0.554391  0.659574  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent’,a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.360419  0.659574  0.174312  0.0483559], ... 

'String', "Fuselage  Station  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  mcontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [1 1 1], ... 

'Callback','a=get(gcbo,"String");S_USER_INPUT.a=str2num(a);', ... 
'Position', [0.55308  0.729207  0.0982962  0.0483559], ... 

'Style','edit', ... 

'Tag',EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.359109  0.727799  0.173001  0.046332], ... 

'String','Height  Above  Waterline  (ft)', ... 
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■Style’, 'text', ... 

'Tag','StaticText2'); 
b  =  uicontroI(Tarent',a, ... 

'UnitsVnormalized', ... 

’BackgroundColor’,[0.752941  0.752941  0.752941], ... 
'Position’,[0.00626566  0.513109  0.317043  0.38764], . 
'Style', 'frame', ... 

'Tag','Framel'); 
b  =  uicontrol('Parent',a, ... 

'Umts','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',  [0.0075 188  0.011236  0.317043  0.490637], . 
'Style','frame', ... 

'Tag','FTame2’); 
b  =  uicontrol(’Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.338346  0.192884  0.324561  0.713483], ... 
'Style','frame', ... 

'Tag’,'Frame3'); 
b  =  uicontrol('Parent',a, ... 

Units' ,'nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position’,[0.679198  0.071161 0.309524  0.835206], ... 
'Style','frame’, ... 

’Tag',Trame4'); 
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APPENDIX  BH.  STABILITY  CONTROL  INPUT2.M 


This  M-file  creates  the  second  of  two  stability  and  control  module  parameter  input 

screens 


function  stabili1y_control_input_2() 

%  This  is  the  machine-generated  representation  of  a  Handle  Graphics  object 
%  and  its  childrea  Note  that  handle  values  may  change  when  these  objects 
%  are  re-created.  This  may  cause  problems  with  any  callbacks  written  to 
%  depend  on  the  value  of  the  han^e  at  the  time  the  object  was  saved. 

% 

%  To  reopen  this  object,  just  type  the  name  of  the  M-file  at  the  MATLAB 
%  prompt.  The  M-file  and  its  associated  MAT-file  must  be  on  your  path. 

load  stability_control_input_2 

a  =  figure(Units','normalized’, ... 

'Color',[0.8  0.8  0.8], ... 

'Colonnap',matO, ... 

'CreateFcn', 'global  MESH_VAL,  MESH_VAL=0;;', ... 

'Name’,’Stability  and  Control  Parameters  page  2', ... 

’NumberTitle',’off, ... 

'PointerShapeCData',matl, ... 

'Position',[0.0025  0.0483333  0.9975  0.89], ... 

'Tag’,Tig2'); 
b  =  uimenuCParent',a, ... 

’Laber,'JANRAD  Options', ... 

'Tag'.'uimenul'); 
c  =  uimenuCParent',b, ... 

'Callback', 'perfomiance_mput_fcn  quit', ... 

'Label','QuitJANRAD', ... 

'Tag','JANRAD  OptionsSubuimenul'); 
c  =  uimenuCParent’,b, ... 

'Callback','performance_input_fcn  return', ... 

'Label', "Retum  to  Begining', ... 

'Tag',’JANRAD  OptionsSubuimenul'); 
c  =  uimenuCParent',b, ... 

'Callback','performance_input_fcn  delta_iiq)ut', ... 

'Enable','ofF, ... 

'Label', 'Change  Input  Parameters', ... 

'Tag','Subuimenu  1 '); 
c  =  uimenuCParent',b, ... 

'Callback','perfonnance_input_fcn  about', ... 

'Laber,'About  Janrad  98 
'Separator', 'on', ... 

'Tag','Subuimenul '); 
b  =  uicontrol('Parent',a, ... 

'UnitsVnormalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 


329 


'Position',[0.0160214  0.763359  0.174667  0.0534351], ... 

'Strmg','Long  Cyclic  Pitch  per  inch  deflection  (degrees/in)', ... 

•Style', 'text', ... 

•Tag','StaticText2'); 
b  =  iucontrol('Parent',a, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','PA=get(gcbo,"String");S_USER_INPUT.PA=str2num(PA);', ... 
'Position',[0.217867  0.76673  0.0985545  0.0478011], ... 

'Style','edit', ... 

•Tag’,'EditTextr); 
b  =  uicontrol('Parent',a, ... 

Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0.0160214  0.708015  0.1749  0.0534351], ... 

'String', 'Lateral  Cyclic  Pitch  per  inch  deflection  (deg/in)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnaIized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','temp=get(gcbo,"String");S_USER_INPUT.temp=str2num(temp);', ... 
'Position',[0.217867  0.709369  0.0985545  0.0478011], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0160214  0.650763  0.173565  0.0515267], ... 

'String','Collective  pitch  per  inch  deflection  (deg/in)', ... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol(Tarent',a, ... 

Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','Vinf=get(gcbo,"String");S_USER_INPUT.Vinf=str2num(Vinf);', ... 
'Position',[0.217867  0.652008  0.0985545  0.0516252], ... 

'Style','edit', ... 

'Tag'.'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

Tosition',[0.0160214  0.530189  0.1749  0.0528302], ... 

'String', 'NOTAR  slv  twst/defl  (deg.  or  in.  travel)  1000  for  TR', ... 

•Style','text', ... 

Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',(l  1  1], ... 

'Callback','omega=get(gcbo,"String");S_USER_INPUT.omega=str2num(omega) 
Tosition',[0.218045  0.535581  0.0977444  0.0468165], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
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b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0291139  0.357414  0.173418  0.0361217], ... 

'String'.'Height  Above  waterline  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units'.'normalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Callback', 'naz=get(gcbo,"String");S_USER_INPUT.naz=str2num(naz);', ... 
'Position',[0.21682  0.351923  0.0985545  0.0480769], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent’,a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941 0.752941  0.752941], ... 

'Position',[0.0293725  0.290566  0.1749  0.0509434], ... 

'String','Boom  Fuselage  Station  (ft)', ... 

'Style’,'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','thetao=get(gcbo,"String");S_USER_INPUT.thetao=str2num(thetao);', ... 
'Position',[0.21682  0.294231  0.0985545  0.05], ... 

'Style','edit', ... 

'Tag',EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941 0.752941 0.752941], ... 

Tosition',[0.0293725  0.233962  0.173565  0.0490566], ... 

'Stting'.'Boom  Position  Right  of  Buttline  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroimdColor',[l  1  1], ... 

'Callback','Swing=get(gcbo,"String");S_USER_INPUT.Swing=str2num(Swing);’, ... 
'Position',[0.21682  0.236538  0.0985545  0.0480769], ... 

'Style'.'edit', ... 

'Tag',EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.0293725  0.19434  0.173565  0.0358491], ... 

'String’,'NOTAR  diameter  (ft))', ... 

'Style'.’text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'bwing=get(gcbo,"String");S_USER_INPUT.bwing=str2num(bwing);', ... 
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'Position',[0.21682  0.180769  0.0985545  0.0480769], ... 

•Style', 'edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0293725  0.120755  0.173565  0.0584906], ... 

'Strmg','Swirl  Angle  at  Boom  (degrees)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback', 'CLwing=get(gcbo,"String");S_USER_INPUT.CLwing=str2num(CLwing);', ... 
'Position',[0.21682  0.125  0.0985545  0.0480769], ... 

•String',", ... 

'Slyle','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normaIized', ... 

•BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0293725  0.0792453  0.173565  0.0339623], ... 

'String','NOTAR  Max  Force  (lbs)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

•BackgroundColor',!!  1  1], ... 

'Callback','CDowing=get(gcbo,"String");S_USER_lNPUT.CDowing=str2num(CDowing) 
'Position',[0.215506  0.071 1538  0.0998686  0.0480769], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0293725  0.0113208  0.173565  0.0528302], ... 

'String', 'Thruster  Fuselage  Station  (ft)', ... 

'Style','text', ... 

'Tag','  StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback', 'twist=get(gcbo,"String");S_USER_INPUT.twist=str2num(t\vist);', ... 
Tosition',[0.21682  0.0173077  0.0985545  0.0480769], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','noimalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.68594  0.745698  0.173456  0.0458891], ... 

'String', 'Height  Above  Waterline  (ft)', ... 

•Style','text', ... 

'Tag','StaticText2'); 
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b  =  uicontrol('Parent',a, ... 

'Units'.'normalized', ... 

’BackgroundColor',[l  1 1], ... 

'CallbackVa=get(gcbo,"String");S_USER_INPUT.a=str2num(a);', ... 

'Position', [0.88042  0.74761  0.0985545  0.0478011], ... 

'Style’,'edit', ... 

'Tag’,'EditTextl’); 
b  =  uicontrol('Parent',a, ... 

'Units', 'nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

■Position’, [0.68594  0.674952  0.17477  0.0497132], ... 

'String',Tuselage  Station  (ft)', ... 

'Style’,’text', ... 

'Tag’,'StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback',Taux=get(gdx),"String");S_USER_lNPUT.Taux=str2num(Taiix);', . 
'Position', [0.881735  0.676864  0.0985545  0.0497132], ... 

'Style','edit', ... 

'Tag’,'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',6, ... 

'Position', [0.68594  0.609943  0.173456  0.0478011], ... 

'Stiing','Position  Right  of  Buttline  (ft)', ... 

’Style',’text', ... 

’Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units',’normalized', ... 

'BackgroundColor', [1 1 1], ... 

'Callback', 'Afh=get(gcbo,’'String'’);S_USER_INPUT.Afh=str2num(Afh);', ... 
'Position’,[0.881735  0.611855  0.0985545  0.0478011], ... 

’Style',’edit', ... 

’Tag','EditTextl’); 
b  =  uicontrol('Parent',a, ... 

'Units'j’normalized', ... 

'BackgroundColor’,[0.752941  0.752941  0.752941], ... 

'Position', [0.68594  0.544933  0.17477  0.0478011], ... 

'String',’Alpha  Zero  Lift  (degrees)', ... 

’Style','text’, ... 

'Tag','StaticText2’); 
b  =  uicontrol('Parent',a, ... 

'Umts','nonnalized', ... 

■BackgroundColor', [1  1 1], ... 

'Callback’,’Afv=get(gcbo,"String");S_USER_INPUT.Afv=str2num(Afv);', ... 
'Position',[0.881735  0.548757  0.0985545  0.0478011], ... 

’Style','edit', ... 

'Tag’,'EditTextl’); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundCk)lor’,[0.752941  0.752941  0.752941], ... 
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’Position',[0.68594  0.481836  0.173456  0.0497132], ... 

'String', 'Angle  of  Incidence  (degrees)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','Svert=get(gcbo,"String");S_USER_INPUT.Svert=str2nuni(Svert);', ... 
'Position',[0.881735  0.4837480.0985545  0.0497132], ... 

'Style','edit', ... 

'Tag’,'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized’, ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.68594  0.355641  0.17477  0.0478011], ... 

'String',Tip  Chord  (ft)',... 

'Style', 'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);', ... 
'Position',[0.881735  0.4187380.0985545  0.0478011], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  iucontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.68594  0.416826  0.17477  0.0478011], ... 

'String', 'Lift  Curve  Slope', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uiconlrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','CLvert=get(gcbo,"String");S_USER_INPUT.CLvert=str2num(CLvert);', ... 
'Position',[0.881735  0.355641  0.0985545  0.0478011], ... 

'Style', 'edit', ... 

'Tag','EditTextr); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.68594  0.286807  0.17477  0.0535373], ... 

'String', 'Root  Chord  (ft)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol(Tarent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback', 'CDovert=get(gcbo,"String");S_USER_INPUT.CDovert=sti2num(CDovert);', . 
'Position',[0.881735  0.290631  0.0985545  0.0478011], ... 

'Style','edit', ... 

'Tag','EditTextr); 
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b  =  uicontrol('Parent',a, ... 

'UnitsVnonnalized', ... 

■BackgroimdColor', [0.752941  0.752941  0.752941], ... 

'Position', [0.68594  0.217973  0.17477  0.0592734], ... 

'String','Rotor  Downwash  Ratio  (page  489-Prouty)', ... 

'Style',’text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','Shoriz=get(gcbo,"String");S_USER_INPlJT.Shoriz=str2num(Shoriz);', 
'Position',[0.881735  0.225621  0.0985545  0.0478011], ... 

'Style','edit', ... 

'Tag'.'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941  0.752941], ... 

'Position',[0.68594  0.1587  0.173456  0.0497132], ... 

'Stiing','Fuselage  Downwash  Ratio  (page  489-Prouty)', ... 

'Style',’text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [1  1  1], ... 

'Callback', 'bhoriz=get(gcbo,"String");S_USER_INPUT.bhoriz=str2nuni(bhoriz);’, 
'Position',[0.881735  0.162524  0.0985545  0.0478011], ... 

'Style’,'edit', ... 

'Tag’,’EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'Callback', 'performance_input_fcn  back', ... 

TontSize',12, ... 

TontWeightTrold', ... 

Tosition',[0.339028  0.0115385  0.164258  0.0807692], ... 

'String',’«  Back', ... 

'Tag','Pushbutton  1 '); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'Callback', 'perfonnance_input_fcn  print', ... 

'FontSize',12, ... 

'FontWeight','bold', ... 

Tosition',[0.510013  0.0114504  0.1642190.0801527], ... 

'String'.'P^t  Screen', ... 

'Tag','Ihishbutton2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nomialized', ... 

'Callback','performance_input_fcn  cnx', ... 

'FontSize',12, ... 

'FontWei^t','bold', ... 

'Position',[0.339119  0.101145  0.164219  0.0801527], ... 

'String’,'Cmcer, ... 

'Tag','Pushbutton3 '); 
b  =  uicontrol('Parent',a, ... 
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'Units', 'noimalized*, ... 

'Callback', niat2, ... 

TontSize',12, ... 

'FontWeight','bold', ... 

'Position',[0.51117  0.1  0.164258  0.0807692], ... 

'String', 'Continue  »', ... 

'Tag','Pushbutton4'); 
b  =  uicontrolCParent'ja, ... 

'Units','nonnali2ed', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWei^t','bold', ... 

Tosition',[0.0225564  0.816479  0.290727  0.0898876], ... 

'String','RIGGING  PARAMETERS', ... 

'Slyle','text', ... 

Tag','StaticTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWei^t','bold', ... 

Position',[0.0200501  0.400749  0.298246  0.0505618], ... 

'String', 'NOTAR  PARAMETERS', ... 

'Style', 'text', ... 

'Tag','StaticTextr); 
b  =  uicontrol('Parent',a, ... 

•Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWei^t','bold', ... 

'Position’,[0.755357  1.09524  0.296199  0.0831721], ... 

'String','MAIN  ROTOR  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

'FontWei^t'j'bold', ... 

Tosition',[0.68797  0.797753  0.289474  0.0898876], ... 

■String','WING  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol(Tarent',a, ... 

'Units','normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

TontSize',14, ... 

'FontWei^t','bold', ... 

'Position',[0. 106516  0.917603  0.763158  0.0674157], ... 

'String','STABILnY  AND  CONTROL  PARAMETERS  (PAGE  2  OF  2)', ... 
'Style','text', ... 

'Tag','StaticText3'); 
b  =  uicontrol('Parent',a, ... 
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'UnitsVnormalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',14, ... 

’FontWeight’,Tx)ld', ... 

'Position', [0.3583 96  0.754682  0.286967  0.151685], ... 

'Strmg’,'CG  LOCATION  &  INERTIAS/FUSELAGE  PARAMETERS', ... 

'Style','text', ... 

'Tag','StaticTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback', 'CDovert=get(gcbo,"String");S_USER_INPlJT.CDovert=str2num(CDovert);', . 
'Position’,[0.551905  0.248566  0.0985545  0.0478011], ... 

'Style','edit', ... 

'Tag',EditTextl’); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.356475  0.237094  0.17477  0.0535373], ... 

'String','Fuselage  Downwash  Ratio  (page  513  Prouty)', ... 

'Style',’text', ... 

'Tag',’StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Uiuts','nonnali2ed', ... 

'BackgroimdColor',[l  1 1], ... 

'Callback', 'CLvert=get(gcbo,"String");S_USER_INPUT.CLveit=str2nuni(CLvert);', ... 
'Position',[0.551905  0.313576  0.0985545  0.0478011], ... 

'Style',’edit', ... 

'Tag’,EditTextl’); 
b  =  uicontrol(Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.356475  0.304015  0.173456  0.0554493], ... 

'String*,'IjK  (slug  ft''2)', ... 

'Slyle',’text', ... 

'Tag','StaticText2'); 
b  =  iiicontrol('Parent',a, ... 

'Units',’normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','bvert=get(gcbo,"String");S_USER_INPUT.bvert=str2num(bvert);', ... 
'Position',[0.551905  0.376673  0.0985545  0.0478011], ... 

'Style’,’edit', ... 

'Tag',EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units',’nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.356475  0.374761  0.173456  0.0478011], ... 

'String','Izz  (slug  fl''2)', ... 

'Style’,'text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[l  1 1], ... 
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■Callback’,'Svert=get(gcbo,"String'');S_USER_INPUT.Sveit=str2num(Svert);', 
'Position',[0.551905  0.441683  0.0985545  0.0497132], ... 

■Style', 'edit', ... 

■Tag'.’EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.356475  0.438931  0.173565  0.0496183], ... 

'String', 'lyy  (slug  ft^2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback','Afv=get(gcbo,"String");S_USER_INPUT.Afv=str2num(Afv);', ... 
Tosition',[0.551905  0.506692  0.0985545  0.0478011], ... 

'Style','edit', ... 

'Tag',EditTextl'); 
b  =  uicontrol('Parent',a, ... 

■Units', 'normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.356475  0.50478  0.173456  0.0478011], ... 

■StTing','Ixx(slugft^2)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',(l  1  1], ... 

'Callback', 'Afh=get(gcbo,"String");S_USER_INPUT.Afh=str2num(Afh);', ... 
Tosition’,[0.551905  0.56979  0.0985545  0.0478011], ... 

•Slyle','edit', ... 

Tag','EditTextl'); 
b  =  iucontrol(Tarent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'FontSize',6, ... 

'Position',[0.356475  0.564885  0.172596  0.0477099], ... 

'String','CG  Position  Right  of  Buttline  (ft))', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units', 'normalized', ... 

'BackgroundColor',[l  1  1], ... 

'Callback',Taux=get(gcbo,"String");S_USER_INPUT.Taux=sfr2num(Taux);', . 
'Position',[0.551905  0.634799  0.0985545  0.0497132], ... 

■Style','edit', ... 

'Tag','EditTextr); 
b  =  uicontrol(’Parent',a, ... 

'Umts','normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.356475  0.633588  0.1725%  0.04%183], ... 

'String', 'CG  Fuselage  Station  (ft)', ... 

'Style', 'text', ... 
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Tag','StaticText2'); 
b  =  uicoiitrol('Pareiit',a, ... 

'Units'.'nonnalized', ... 

'BackgroundColor',[l  1 1], ... 

'CaUback\'a=get(gcbo,"String'');S_USER_INPUT.a=str2niim(a);', ... 
'Position’,[0.550591  0.705545  0.0985545  0.0478011], ... 

'Style','edit', ... 

Tag'.'EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units',’nonnalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.356475  0.704198  0.171278  0.0458015], ... 

'String', 'CG  Height  Above  Waterline  (ft)', ... 

'Style'.'text', ... 

'Tag','StaticText2'); 
b  =  iiicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 

'Position', [0.01602 14  0.590566  0.1749  0.0528302], ... 

'String','thetaOt/pedal  deflection  (deg/in  or  deg/deg)', ... 

'Slyle','text', ... 

'Tag','StaticText2'); 
b  =  uicontrolCParent'ja, ... 

'Units','normalized', ... 

'BackgroundCoIor',[l  1 1], ... 

'Callback','Vinft=get(gcbo,"String");S_USER_INPUT.Vinf=str2num(Vinf);’, ... 
'Position',[0.217867  0.594646  0.0985545  0.0516252], ... 

'Style','edit’, ... 

'Tag','EditTextl'); 
b  =  uicontrol('Parent',a, ... 

'Units’,’normalized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 

'Position',[0.0160214  0.466038  0.1749  0.0509434], ... 

'String','N^  Rudder  Deflection  (deg  or  in.  travel)', ... 

'Style','text', ... 

'Tag',’StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','normalized', ... 

'BackgroundColor',[l  1 1], ... 

'Callback','omega=get(gc^,"String");S_USER_INPUT.omega=str2nuin(omega);', ... 
'Position',[0.217623  0.479245  0.0987984  0.0471698], ... 

'Style','edit', ... 

'Tag','EditTextl'); 
b  =  uiconlrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor', [0.752941  0.752941  0.752941], ... 

'Position',[0.0160214  0.760377  0.1749  0.0528302], ... 

'String','Long  Cyclic  Pitch  per  inch  deflection  (degrees/in)', ... 

'Style','text', ... 

'Tag','StaticText2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',  [0.752941  0.752941 0.752941], ... 
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'Position',[0.0112782  0.464419  0.313283  0.451311], .. 
'Style', 'frame', ... 

'Tag',’Framel'); 
b  =  uicontrol('Parent',a, ... 

'Ujiits','noniialized', ... 

'BackgroundColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.0125313  0.00374532  0.313283  0.455056] 
'Style','frame', ... 

'Tag','Frame2'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroimdColor',[0.752941  0.752941  0.752941], ... 
'Position',[0.344612  0.224719  0.315789  0.689139], ... 
'Style','fimne', ... 

'Tag','Frame3'); 
b  =  uicontrol('Parent',a, ... 

'Units','nonnalized', ... 

'BackgroundColor',[0.752941  0.752941 0.752941], ... 
'Position',[0.682957  0.134831  0.310777  0.779026], ... 
'Style', 'frame', ... 

Tag','Frame4'); 
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